【搞定】[请求]我想在窗体的关闭按钮里写事件**

snowman

如图，我想点击窗体右上角的关闭按钮时
写一些代码，
应该怎么写？

snowman

具体需求：点击时提示“是”“否”保存、“取消”。

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=17191

在窗体的onclosequery事件写

snowman

刺青问过方法，没有具体实现
现在的问题是点击取消的时候窗体还会关闭

atiger

请问你需要怎么具体实现的呢？
弹出的对话框写法在3楼，点击“是”或者“否”的代码在2楼

刺青

snowman　的意思是：点击窗体的＂Ｘ＂按钮时，跳出提示信息，点取消按扭的时候，是什么都不做，这样子怎么实现．因为，如果把提示信息的代码写到窗体的OnClose事件下的话，当运行完，窗体都会关闭．

代码：
procedure TQCJZJJSPGN.BizFormClose(Sender: TObject; var Action: TCloseAction);
var
   i : integer;
begin
     i := Forms.Application.MessageBox('保存?','确认',3);
     if i = 6 then
     begin
          DataSetBroker1.DataSet.ApplyUpdates;
          close;
     end
     else if i = 7 then
     begin
          DataSetBroker1.DataSet.CancelUpdates;
          close;
     end;
end;

上面的代码明显不对！要实现的功能是：点击窗体的＂Ｘ＂按扭时，跳出提示消息，如果点＂取消＂按扭，就不执行关闭窗体的操作．请问怎么做？

lixy

在窗体的onclosequery事件写,看看我上面的回复，都写的很清楚了。。

大家都无视我的存在，55555555

lixy

procedure TMainForm.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=false;  他就不关闭了

end;

snowman

谢谢lixy，要的就是canclose:=false这一句。
可以结帖了

atiger

最初由 lixy 发布
[B]在窗体的onclosequery事件写,看看我上面的回复，都写的很清楚了。。

大家都无视我的存在，55555555 [/B]

Oh,Sorry Sir