教程-Delphi源代码--后延函数

最新推荐文章于 2024-10-04 14:26:43 发布

转载最新推荐文章于 2024-10-04 14:26:43 发布 · 57 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/FKdelphi/p/4654483.html

本文介绍了在Delphi中实现定时任务的三种方法：使用TTtimer控件、Sleep函数及GetTickCount函数配合循环实现延时同时保持消息响应。TTtimer控件简化了定时器的创建过程，Sleep函数用于简单延时，GetTickCount则适用于需要精确控制延时且能处理延时期间其他消息的情况。

说明：

1）TTtimer控件
　　TTtimer控件的实质是调用WindowsAPI定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER消息的处理过程。通过设置OnTimer事件和Interval属性，我们可以很方便的产生一些简单的定时事件。

2）Sleep函数
　　Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为Sleep(milliseconds)，暂停当前的进程milliseconds毫秒。Sleep的实现方法其实也是调用Windows API的Sleep函数。

例如：
sleep(1000); //延迟1000毫秒
Sleep会引起程序停滞，如果你延迟的时间较长的话，你的程序将不能够响应延时期间的发生的其他消息，所以程序看起来好像暂时死机。

3）GetTickCount函数
　　在主程序中延时，为了达到延时和响应消息这两个目的，GetTickCount()构成的循环就是一种广为流传的方法

例如：
procedure Delay(MSecs: Longint);
//延时函数，MSecs单位为毫秒(千分之1秒)
var
FirstTickCount,Now:Longint;
begin
FirstTickCount:=GetTickCount();
repeat
Application.ProcessMessages;
Now:=GetTickCount();
until(Now-FirstTickCount>=MSecs)or(Now<FirstTickCount);
end;

转载于:https://www.cnblogs.com/FKdelphi/p/4654483.html