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

時間 2019-11-12

標籤界面顯示後延運行代碼简体版

原文原文鏈接

procedure  timerfun(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall;
begin
    killtimer(handle,identer);//關閉定時器
    //接下來爲代碼段end;

procedure TForm1.FormShow(Sender: TObject);
begin
  settimer(self.handle,0,1000,@timerfun);
end;