Delphi中延时

作者:互联网

2025-08-20

Delphi教程

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

相关标签:

Delphi教程