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