Sleep会引起程序停不动的现象,很多时候我们可能不想出现这种情况,那么就自己动手写一个吧
//延时DT毫秒
procedure TimeDelay(DT: Dword);
var
tt: dword;
begin
tt := gettickcount(); //取的当前计算机时间
while gettickcount() - tt < dt do //判断是否超出延迟的时间(单位毫秒)
application.ProcessMessages;
end;
var
tt: dword;
begin
tt := gettickcount(); //取的当前计算机时间
while gettickcount() - tt < dt do //判断是否超出延迟的时间(单位毫秒)
application.ProcessMessages;
end;