引文來源: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34239 --------------------------------------------------------------------- 我把重點貼出來 1.在form1.create(...)的最後一行加入 Application.onIdle:= StartRun; 2.在 private 下面加入 procedure StartRun(Sender: Tobject; var Done: boolean); 3.在 {$R *.DFM} 下加入 procedure TForm1.StartRun(Sender: Tobject; var Done: boolean); var xhandle: longInt; btime, etime: loginint; begin xhandle:= FindWindow('TForm1',nil); if xhandle = 0 then exit; Application.ProcessMessages; Application.OnIdle:= nil; Done:= True; btime:= gettickCount; etime:= getTickCount; repeat Application.ProcessMessage; etime:= getTickCount; until etime-btime > 5000; Form1.Close; end; 4.在 form1.close 加入 Action:= caFree; Form1:= nil; 原因: 在oncreate 未完成前如果執行任何close行為, 會導致Access的不可預期錯誤 所以加入 Application.onIdle:= StartRun, 指Form1 create完成, 會執行一個 onIdle事件, 這時我們指定onIdle去執行一個procedure, 在此做五杪的計數然 後關閉--OK! 另外, 使用 getTickCount 會比Timer來的方便, 而且至少我認為會比timer精準 提供你做建議~~ --------------------------------------------------------------------- 上面是以時間為基準,5秒後執行close 那如果我是希望能在FormShow事件完成後執行一個自訂的Procedure 那該如何判定FormShow事件是否完成了呢?

DoubleFish2004 你好: 一般來說再 FormShow 裡面加上程式碼即可 如: procedure TForm1.FormShow(Sender: TObject); begin Timer1.Enabled:=true; end;

------
======================
昏睡~
不昏睡~
不由昏睡~