Delphi 延迟时间函数

本文整理自网络，侵删。

 function   ritime(m:integer):integer;
var
  ot:integer;
begin
  ot :=  GetTickCount;
  Repeat
    Application.ProcessMessages;
  Until ((GetTickCount - ot)>= longInt(m));
end;
 

相关阅读 >>

Delphi 简化版的inputquery 中文版输入对话框

怀念一下这些经常不记得的Delphi代码

Delphi tfilestream流操作1

Delphi 判断素数的简单例子

Delphi提示‘error loading midas.dll’的原因及解决方案

Delphi: ttreeview 中禁止双击事件展开或关闭节点

Delphi剪切板-监视剪贴板

Delphi 用cxgrid把数据导出到excel时乱码的解决办法

Delphi lockbox 做加密解密

Delphi调用http接口上传文件

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

转载请注明出处：木庄网络博客 » Delphi 延迟时间函数