执行 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;