delphi 三种常用的延时方法

在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。

1）TTtimer控件

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

2）Sleep函数

Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为

Sleep(milliseconds)，暂停当前的进程milliseconds毫秒。Sleep的实现方法其实也是调用Windows API的Sleep函数。例如：

sleep(1000); //延迟1000毫秒

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

3）GetTickCount函数

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

1.procedure Delay(MSecs: Longint);

2.//延时函数，MSecs单位为毫秒(千分之1秒)

3.var

4.FirstTickCount, Now: Longint;

5.begin

6.FirstTickCount := GetTickCount();

7.repeat

8. Application.ProcessMessages;

9. Now := GetTickCount();

10.until (Now - FirstTickCount >= MSecs) or (Now

11.end;