delphi 延时程序

本文整理自网络，侵删。

 Procedure TForm1.Delay(Msecs: Integer);
var FirstTickCount: real;
begin
  FirstTickCount:= GetTickCount;
  Repeat
    Application.ProcessMessages;
  Until ((GetTickCount - FirstTickCount) >= LongInt (Msecs));
end;

程序调用：Delay(500); 

在DelphiXE10.1中直接使用没问题。
 

相关阅读 >>

Delphi 压缩带密码的access数据库的方法

Delphi 模拟按键的一些误解

Delphi memo1自动循环上下滚屏

Delphi 内存池

Delphi 只限制到4位小数级别

Delphi 线程中修改主窗体的控件内容

Delphi format格式化函数

Delphi 遍历类中的属性

Delphi禁用、启用usb

Delphi app如何禁掉安卓锁屏

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

转载请注明出处：木庄网络博客 » delphi 延时程序