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