執行 Application.Terminate 后, OnDestroy 中的代碼還會執行, 但不會理會 OnCloseQuery、OnClose 中的代碼了.
procedure TForm1.Button1Click(Sender: TObject); begin // SendMessage(Application.Handle, WM_CLOSE, 0, 0); // SendMessage(Handle, WM_CLOSE, 0, 0); // Halt(0); // PostQuitMessage(0); Application.Terminate; end; procedure TForm1.FormDestroy(Sender: TObject); begin Beep; end;