另外一种延时的办法

Sleep会引起程序停不动的现象，很多时候我们可能不想出现这种情况，那么就自己动手写一个吧

//延时DT毫秒

procedure TimeDelay(DT: Dword);
var
  tt: dword;
begin
  tt := gettickcount(); //取的当前计算机时间
  while gettickcount() - tt < dt do //判断是否超出延迟的时间（单位毫秒）
    application.ProcessMessages;
end;

 

转载于:https://www.cnblogs.com/mumble/archive/2012/01/09/2317297.html