最好不要随便用sleep;也可以用Timer 给你一个延时函数,参考 procedure Delay(msecs: integer); //延时,msecs为要延时的毫秒数 var FirstTickCount: Dword; begin FirstTickCount:=GetTickCount; repeat {allowing access to other controls, etc.} Application.ProcessMessages; until ((GetTickCount-FirstTickCount) >= Dword(msecs)); end;
给你一个延时函数,参考
procedure Delay(msecs: integer); //延时,msecs为要延时的毫秒数
var
FirstTickCount: Dword;
begin
FirstTickCount:=GetTickCount;
repeat
{allowing access to other controls, etc.}
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Dword(msecs));
end;