如何在点击主窗体右上角的关闭键(X)后,弹出确认对话框

Question

OnCloseQuery or OnClose Event

Answer 1

OnCloseQuey事件
if 要关闭 then
  CanClose:=True
else
  CanClose:=False;

Answer 2

在窗体的onclosequery事件中写代码就行了

Answer 3

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('你想退?', mtWarning, [mbYes, mbNo], 0) = mrYes;
end;

Answer 4

在OnClose内写事件
if MessageBox(self.Handle,'您真的想退出程序吗？','询问',MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON2)=IDNO then
Action:=acNone;

Answer 5

拦截消息，wm_syscommand，关闭的参数是SC_CLOSE

Answer 6

忘了告诉你，OnCloseQuery事件是在程序执行onclose事件之前执行的，

Answer 7

belllab(bell)老兄，好象你的方法不得诶，它提示Action:=acNone出错