怎么在点击关闭按钮时加一个关闭确认

Question

怎么在点击关闭按钮时加一个关闭确认

Answer 1

procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //其中Canclose为true的时候允许关闭，设置为False就不允许关闭
end;

Answer 2

procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('你确定要结束程序么？',mtInformation,[mbyes,meno],0)=mbyes then
    close;
end;

Answer 3

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Application.MessageBox('真的要退出吗？', '提示', MB_YESNO+MB_ICONQUESTION) = ID_YES then
    Action := caFree
  else
    Action := caNone;
end;
也可以的。

Answer 4

要精简的代码吗？
 
procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Canclose := Application.MessageBox('真的要退出吗？', '提示', MB_YESNO+MB_ICONQUESTION) = ID_YES; 
end;我不要分.

Answer 5

procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('真的要退出吗？', '提示', MB_YESNO+MB_ICONQUESTION) = ID_no then 
  exit; 
end;
我要分

Answer 6

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Application.MessageBox('真的要退出吗？', '提示', MB_YESNO+MB_ICONQUESTION) <>ID_YES then 
  Abort;
end;