delphi中延时_delphi教程

2007-08-23 分类：未分类阅读(846) 评论(0)

当前位置：Delphi园地 → 技巧文章 → 编程心得 → Delphi中延时

Delphi中延时
日期：2004年8月31日作者：

procedure Delay(msecs:integer);
var
FirstTickCount:longint;

begin

FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));

end;

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » delphi中延时_delphi教程