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