Delphi中进行延时的4种方法

var

FirstTickCount:longint;

begin

FirstTickCount:=GetTickCount;

repeat

Application.ProcessMessages;

until ((GetTickCount-FirstTickCount) >= Longint(msecs));

end;

begin

showmessage('到点了');

killtimer(handle,identer);//关闭定时器

end;

//其中的identer是定时器的句柄

procedure TForm1.Button1Click(Sender: TObject);

var

identer:integer;

begin

identer:=settimer(0,0,2000,@timerfun);

if identer=0 then exit; //定时器没有创建成功。

end;

var I:Integer;

var WaitedTime:Cardinal;

begin

WaitedTime:=0;

while (WaitedTime<MaxWaitTime) do

begin

SleepEx(100,False);

Inc(WaitedTime,100);

Application.ProcessMessages ;

end

end;