怎样让程序延时

来源:互联网 发布:政务数据资源共享 编辑:程序博客网 时间:2024/05/15 17:55
2000年11月22日 10:05:00

Q:怎样让程序延时

A:

procedure Delay(msecs:integer);

var
FirstTickCount:longint;

begin

FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) <= Longint(msecs));

end;



Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=3153


原创粉丝点击