界面顯示後延時運行代碼《轉》

settimer(self.handle,0,5000,@timerfun);  //定義引用

//執行事件
procedure  timerfun(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall;
begin
  showmessage('事件激活');
  killtimer(handle,identer);//關閉定時器
end;