Delphi中延时

核心提示： 当前位置：Delphi园地 → 技巧文章 → 编程心得 → Delphi中延时 Delphi中延时 日期：2004年8月31日 作者： PRocedure Delay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCoun

 

当前位置：Delphi园地 → 技巧文章 → 编程心得 → Delphi中延时
 
Delphi中延时
日期：2004年8月31日 作者： 
 
PRocedure Delay(msecs:integer);
var
FirstTickCount:longint;

begin

FirstTickCount:=GetTickCount;
repeat
application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));

end;

（出处：www.delphibbs.com）