delphi 怎么实现主窗口退出时,有一个提示框?

无论点窗口上的【按钮】还是【右上角的叉】,能出现一个提示窗口,“是”-退出窗口,“否”-重新登录(调出登录窗口),“取消”-返回。MessageBox能实现吗?还是要调用... 无论点窗口上的【按钮】还是【右上角的叉】,能出现一个提示窗口,“是”-退出窗口,“否”-重新登录(调出登录窗口),“取消”-返回。
MessageBox能实现吗?还是要调用新窗口(我调用窗口,有些错误)?
如图一样。 有谁能给代码?谢谢了
热心网友:你好,我用你的代码,已经好了。但用在 procedure TMainForm.ToolButton8Click(Sender: TObject); 中“是”要点两下主窗口才关闭,是什么原因?
展开
 我来答
暴弘桂5817
推荐于2018-03-05 · TA获得超过7.8万个赞
知道大有可为答主
回答量:5.2万
采纳率:0%
帮助的人:6853万
展开全部
在窗口的OnCloseQuery里写下面的代码:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case Application.MessageBox('确定退出系统?','询问',35) of
6:
begin
ShowMessage('按了是,窗口关闭');
CanClose:=True;
end;
7:
begin
ShowMessage('按了否,返回登陆窗口');
CanClose:=True;
//这里写上你的登陆窗口调用代码
ShowMessage('登陆窗口出现了');
end;
2:
begin
ShowMessage('按了取消,窗口不关闭');
CanClose:=False;
end;
end;
end;
none_six
推荐于2016-08-11 · TA获得超过325个赞
知道小有建树答主
回答量:479
采纳率:100%
帮助的人:369万
展开全部
你可以在窗体的onClose事件中进行设计。
在里面先以定义一个退出标志,然后根据标志判断是否退出。
procedure TFrm_mz_sf_zdhj.FormClose(Sender: TObject; var Action: TCloseAction);
var ExitFlag:Integer;//退出标志
begin
ExitFlag:=Application.MessageBox('当前记录尚未保存,确认退出吗?','警告',Mb_YesNo) ;
If ExitFlag=7 then//不退出
Begin
//TCloseAction = (caNone, caHide, caFree, caMinimize);
Action:=caNone;
Exit;
end
else
Begin
self.close;//退出
End;
end;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
testerHooK
2011-10-06 · 超过67用户采纳过TA的回答
知道小有建树答主
回答量:229
采纳率:0%
帮助的人:194万
展开全部
自己建一个窗体,然后用ShowModel显示
或者在OnCanClose事件里处理,具体的看帮助
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
freeyaya111
2011-10-06 · 超过12用户采纳过TA的回答
知道答主
回答量:75
采纳率:50%
帮助的人:13.6万
展开全部
重载窗口的消息处理,在其中拦截wm_close即可。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
fyyeyip
2011-10-07
知道答主
回答量:28
采纳率:0%
帮助的人:19.8万
展开全部
在Form的onclosequery中用Messagebox提问就可以了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式