等待函数（界面保持响应正常）不同于Sleep

最新推荐文章于 2026-07-01 10:12:54 发布

转载最新推荐文章于 2026-07-01 10:12:54 发布 · 996 阅读

收录于

Delphi>>资料积累

当前文章被收录于：

Delphi>>资料积累

7 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一种改进界面响应的等待函数实现方式，通过循环处理消息，避免了传统Sleep函数可能引起的界面冻结问题。

等待函数（界面保持响应正常）不同于Sleep

// 自定义函数

procedure WaitTime(MSecs: integer);
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := Windows.GetTickCount();
  repeat
    Application.ProcessMessages;
    Now := Windows.GetTickCount();
  until
    (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

Eg: WaitTime(1000);

标签

#DELPHI