发信人: delphifan()
整理人: teleme(2001-07-30 11:19:38), 站内信件
|
何做一个通用的“间隔”过程
西安 梁 明
如果注意到GetTickCount过程，那么要解决这个问题就容易了。
下面是源代码：
procedure TForm1.Delay(msecs:integer);
var
From:longint;
begin
From:=GetTickCount;
repeat
Application.ProcessMessages; {不要让程序死沉}
until ((GetTickCount-From) >= Longint(msecs));
end;
窗体As text代码（没有）
版主：梁明
日期：1999-03-09-19：35
E-mail：[email protected]
+===========请与我联系(Please remember me)===========+
+ +
+ [email protected] +
+ +
+ http://www4.netease.com/~delphifan +
+ http://liangming.163.net +
+ http://www.zg169.net/~delphiok +
+ +
+====================================================+
--
※ 修改:．delphifan 于 Mar 13 00:25:53 修改本文．[FROM: 202.100.29.199]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.100.29.199]
|
|