Delphi中我在Form里新建了一个Button用来关闭exe应用程序。
然后我要求点击按钮有提示问是否要删除,另外点击Form上的关闭按钮也要有一样的提示
如何做?
Delphi中我在Form里新建了一个Button用来关闭exe应用程序。
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- threenewbee 2016-03-17 15:20关注
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;
在你的按钮上也写form.Close();
解决 无用评论 打赏 举报
悬赏问题
- ¥15 win11家庭中文版安装docker遇到Hyper-V启用失败解决办法整理
- ¥15 gradio的web端页面格式不对的问题
- ¥15 求大家看看Nonce如何配置
- ¥15 Matlab怎么求解含参的二重积分?
- ¥15 苹果手机突然连不上wifi了?
- ¥15 cgictest.cgi文件无法访问
- ¥20 删除和修改功能无法调用
- ¥15 kafka topic 所有分副本数修改
- ¥15 小程序中fit格式等运动数据文件怎样实现可视化?(包含心率信息))
- ¥15 如何利用mmdetection3d中的get_flops.py文件计算fcos3d方法的flops?