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);//延时一秒

出处:http://www.ppblog.cn/delay.html

相关阅读 >>

Delphi 三个消息函数的威力

Delphi直接插入法排序示例

Delphi xe android 程序切换到后台及从后台切换到前台实现

winapi 字符及字符串函数(9): lstrcat - 合并字符串

Delphi 读取文件获取指定字符串

Delphi xe tparallel.for循环

Delphi 一个拼图工具的制作思路

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi 将字符串转换成 utf8 编码的函数

Delphi 如何检查字符串是否为数字

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...