delphi真正实现延时暂停功能
2021-03-14 15:28
阅读：565
标签：怎么 message messages class cat ica 简单的 procedure div 用delphi怎么实现延时功能？在delphi中有一个sleep()函数是用来暂停线程的，使用了它好像和死掉了似得，不好用，这么简单的延时动作用Timer控件有显得复杂了。 delphi真正实现延时暂停功能 标签：怎么 message messages class cat ica 简单的 procedure div 原文地址：https://www.cnblogs.com/xenli/p/12468795.html
下面给大家分享一个真正好用的延时功能：
procedure delay(MSecs:LongInt);
var
FirstTickCount,Now:LongInt;
begin
FirstTickCount:=GetTickCount();
repeat
Application.ProcessMessages;
Now:=GetTickCount();
until (Now - FirstTickCount >=MSecs)or(NowFirstTickCount);
end;
//调用
delay(1000);//延时一秒
评论
亲，登录后才可以留言！