当前位置：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）