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;