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

posted on 2012-02-14 23:15  万一  阅读(4331)  评论(4编辑  收藏  举报