delphi真正实现延时暂停功能
用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);//延时一秒
EPX是利用基于Pascal的FastScript语言作为基础语言,在其中增加了许多函数与特性的一个扩展,将EPX组件本身融入到语言中去,使其能够更加灵活方便地运用EPX的所有功能,实现与EPX核心的友好交互。
欢迎加入【ePx Studio学习交流群】:113140060
https://jq.qq.com/?_wv=1027&k=5MYPTFX
欢迎加入【ePx Studio学习交流群】:113140060
https://jq.qq.com/?_wv=1027&k=5MYPTFX