delphi实现延时的方法，很多人首先就想到用timer控件，这里我们不用timer控delphi直接用settimer函数实现延时的方法...

delphi实现延时的方法，很多人首先就想到用timer控件，这里我们不用timer控件看如何来实现？ 首先介绍一下settimer函数的使用：

例如：settimer(self.handle,0,1000,@timerfun);

参数依次为:  

  1.调用函数的handle,windows会定时发送WM_TIMER消息给此handle  

  2.timer的标识,可设置为0  

  3.定时器的值,单位是毫秒  

  4.回调函数   

//回调函数：当定时器到点后，就会调用该函数，该函数的格式有一定的讲究，可以参照以下写：

procedure  timerfun(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall;      

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;

转载于:https://www.cnblogs.com/94YY/archive/2011/05/11/2043490.html