delphi里当用queryclose去提示退出时,怎样另到按提示对话框的叉叉变成取消的操作呢?

答案:3 悬赏:0 手机版

解决时间 2021-04-06 11:45

提问者网友：我没有何以琛的痴心不悔
2021-04-06 06:27

if messagedlg('是否退出程序',mtwarning,[MBYES,MBNO],0)=mrno then
canclose:=false
else
canclose:=true;
但如果按这个对话框右上角的叉叉怎么也会退出程序呢?我想把它改成取消退出程序操作.就好象word里退出时按的一样.怎样做?求助!!!!!!!!!!!

最佳答案

五星知识达人网友：神鬼未生
2021-04-06 07:52

看看我写的能对你帮助吗？
procedure TFrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('您好，是否真的要退出该系统！退出请按“是”...',
'提示',MB_ICONQUESTION + MB_YESNO ) =6 then
CanClose :=true
else
CanClose :=false;

end;

全部回答

1楼网友：孤独入客枕
2021-04-06 09:36

猜想点叉叉的话返回值就不是mrno 了，在Delphi XE2里测试下 i:=Vcl.Dialogs.messagedlg('是否退出程序', mtWarning, [MBYES, MBNO],0); showmessage(inttostr(i)); 点叉叉返回值是2；Delphi XE2里 mrNo: Integer = 7; 显然用if判断会出现else的情况，还是用case的好。

2楼网友：轻熟杀无赦
2021-04-06 08:59

你好！用case of 语句吧 case messagedlg('是否退出程序',mtwarning,[mbYes, mbNo, mbOK, mbCancel],0) of 0: begin end; 1:begin//mbOK是1 canclose:=true; end; 2:begin//mbCancel是2，按对话框上的XX按钮，相当按了取消按钮 canclose:=false end 3:begin end; end; 其它按钮的编号你自己去查吧。我的回答你还满意吗~~

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息