Sleep会引起程序停滞,使程序看起来像死机
下面的延迟方法不会卡主线程
下面的延迟方法不会卡主线程
procedure Delay(msecs: DWORD);
var
iStart, iStop: DWORD;
begin
iStart := GetTickCount;
repeat
iStop := GetTickCount;
Application.ProcessMessages;
until (iStop - iStart) >= msecs;
end;