综合

img fishday36

Delphi中延时

发表于2004/10/16 16:28:00  679人阅读

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

阅读全文
0 0

相关文章推荐

img
取 消
img