請問： 若今天我用使用timer去自動關閉訊息 可成功。程式碼如下： procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := True; ShowMessage('Test'); end; procedure TForm1.Timer1Timer(Sender: TObject); begin SendMessage(GetActiveWindow, WM_CLOSE, 0, 0); Timer1.Enabled := False; end; end. 但我如果不用timer，確沒辦法自動將訊息關閉，程式碼如下： procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Test'); SendMessage(GetActiveWindow, WM_CLOSE, 0, 0); end; 請問原因為何？

因为SendMessage还没被执行

因为SendMessage还没被执行

可以說詳細點嗎？

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Test'); // 當系統執行程式碼，在等著使用者的回應（也就是點擊「OK」按鈕）
  SendMessage(GetActiveWindow, WM_CLOSE, 0, 0); //所以如果使用者不點擊「OK」按鈕的話，系統是不回執行到此的
end;

那為何我第一個程式可以？？ 非常感謝你的回答。

因為系統在顯示「Test」訊息之前，就已經激活了Timer1,所以在經過若干秒（也就是Timer1.Interval豪秒）後，系統執行「Timer1Timer(Sender: TObject)」裡的"SendMessage(GetActiveWindow, WM_CLOSE, 0, 0)","Test"訊息就被關掉了

因為 Timer 是多執行緒程序...程式不會停在ShowMessage.. 可以參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=65739

若改成 用postmessage 為何還是 沒辦法自動關閉，postmessage不是 "不用等待接收者回應訊息,自己的程式碼可以繼續跑"嗎？ procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Test'); PostMessage(GetActiveWindow, WM_CLOSE, 0, 0); end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Test'); // 當系統執行程式碼，在等著使用者的回應（也就是點擊「OK」按鈕）
  SendMessage(GetActiveWindow, WM_CLOSE, 0, 0); //所以如果使用者不點擊「OK」按鈕的話，系統是不回執行到此的
end;

OK！ ebx大大，我已了解你的意思，謝謝！