在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
用delphi怎么实现延时功能?在delphi中有一个sleep()函数是用来暂停线程的,使用了它好像和死掉了似得,不好用,这么简单的延时动作用Timer控件有显得复杂了。 procedure delay(MSecs:LongInt); var FirstTickCount,Now:LongInt; begin FirstTickCount:=GetTickCount(); repeat Application.ProcessMessages; Now:=GetTickCount(); until (Now - FirstTickCount >=MSecs)or(Now<FirstTickCount); end; //调用 delay(1000);//延时一秒
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论