易网时代-编程资源站

编程资源图片资源库蚂蚁家优选 PDF转换器

软件开发、小程序制作、系统集成与运维、空间租用、硬件开发、视频监控、技术咨询与支持——联系电话：0311-88999002/88999003

首页 / 软件开发 / Delphi / Delphi中延时

Delphi中延时2008-02-02

procedure Delay（msecs:integer）;
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until （（GetTickCount-FirstTickCount） >= Longint（msecs））;
end;

版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图