怎样实现关闭form之前提示保存当前信息，点“取消”不做任何操作、form也不关闭

Question

怎样实现关闭form之前提示保存当前信息，点“取消”不做任何操作、form也不关闭，我用closequ……事件好象不行，点“取消”form还是关闭了

Answer 1

TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messagebox(handle,'确认关闭吗？','警告',MB_YESNO)=ID_NO then
    canclose := false;
end  

Answer 2

if messagedlg('are u sure??',mtwarning,[mbyes,mbno],0)=mrno then
CanClose:=false;

Answer 3

procedure TfrmMobileMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Action: TCloseAction;
begin
  CanClose := False;
  if MessageDlg('是否确定退出本系统?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  Begin
    CanClose := True;
   //   Action :=caFree;  End;    
end;

Answer 4

在OnClose中做就可以了。
因为OnClose中也有Action。
=======================================================
procedure TfrmMobileMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('是否确定退出本系统?',
     mtConfirmation, [mbYes, mbNo], 0) = mrYes then Action := caFree
  else Action := caNone;
end;

Answer 5

TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messagebox(handle,'确认关闭吗？','警告',MB_YESNO)=ID_NO then
    canclose := false;
end
我就是用的这个

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
begin
 if MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   close;
end;

Answer 7

用messagebox或者messagedlg都可以的
就给用户一个选择的机会，再根据结果做相应的工作