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

總結

以上是生活随笔為你收集整理的delphi实现延时的方法，很多人首先就想到用timer控件，这里我们不用timer控delphi直接用settimer函数实现延时的方法...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。