点击窗口右上角的“X”关闭程序时，如何让程序提示保存啊

Question

如题

Answer 1

去判断DateSet的状态是Modified的还是其他的（大概是这么写的，忘记了），然后做你想做的事情。

Answer 2

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('CBC？', mtWarning, [mbYes, mbNo], 0) = mrYes then
    { TODO : C };
end;

Answer 3

在
OnClose中加入if MessageDlg(strDelete,mtConfirmation,[mbYes,mbNo],0)=mrYes then
....

Answer 4

procedure TF_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var aa:integer;
begin
 aa:=messagedlg('你真的要退出本系统吗？',mtconfirmation,[mbyes,mbno],0);
 canclose:=(aa=mryes);
end;

Answer 5

在onclose事件中
   if messagebox(handle,'确定要退出该系统吗？','提示',mb_ok+mb_iconinformation)=idyes then
     Action:=caFree
  else Action:=caNone;

Answer 6

在ONCLOSEQUERY事件中写你的代码。