當前位置: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)