delphi 怎么实现主窗口退出时,有一个提示框?
无论点窗口上的【按钮】还是【右上角的叉】,能出现一个提示窗口,“是”-退出窗口,“否”-重新登录(调出登录窗口),“取消”-返回。
MessageBox能实现吗?还是要调用新窗口(我调用窗口,有些错误)?
如图一样。 有谁能给代码?谢谢了
热心网友:你好,我用你的代码,已经好了。但用在 procedure TMainForm.ToolButton8Click(Sender: TObject); 中“是”要点两下主窗口才关闭,是什么原因?
你可以在窗体的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;
在窗口的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;
delphi 怎么实现主窗口退出时,有一个提示框?的更多相关文章
- WPF 主窗口关闭时结束所有相关线程
程序主窗口的 Closed 事件中添加代码: Process.GetCurrentProcess().Kill();
- 关于winform窗体关闭时弹出提示框,选择否时窗体也关闭的问题
在窗体中有FormClosing这个事件,这个事件是在窗体关闭时候运行的.如果要取消某个事件的操作,那么就在该事件中写上e.Cancel=true就能取消该事件,也就是不执行该事件.所以,你要在窗体关 ...
- 【2016-11-6】【坚持学习】【Day21】【主窗口关闭时,同步关闭它的子窗口】
本来想用委托实现的.但是又觉得没有必要. 方法如下: public MainWindow() { InitializeComponent(); this.Closing += MainWindow_C ...
- winform程序关闭界面时弹出提示框
void Form1_FormClosing(object sender, FormClosingEventArgs e){ if (MessageBox.Show( "窗口关闭后,数据即将 ...
- c# web 删除时弹出提示框
方法1: 在控件中增加属性 <asp:Button ID="btnSub" runat="server" Text="提交" oncl ...
- listview 没数据内容时显示一个提示文本
listview和textview 1:1.listview无内容的时候本身是不显示的,所以textview会显示 getlistview获取系统定义的listview
- 开发ArcEngine时的一个提示,无效位图,无法在类“***”中找到资源“***.bmp”
解决办法:文件属性-生成操作 修改为 :嵌入式资源.
- Qt窗口退出与事件循环退出的问题
我在Qt主程序中开启一个线程,线程中使用信号-槽来产生QMainWindow(GUI),main函数代码如下:int main(int argc, char *argv[]){ QApplicatio ...
- QT:窗口最小化时显示一个小浮标
有些窗口在自身最小化时要在桌面上显示一个小浮标,让用户利用这个小浮标进行各种操作(例如迅雷的悬浮窗一样),我试着用QT实现一下这个功能. PS:本来以为这个功能很简单,却搞了我两个晚上,泪奔... 思 ...
随机推荐
- day2 编程语言介绍、Python运行程序的两种方式、变量
一 编程语言介绍 1. 机器语言 用计算机能理解的二进制指令直接编写程序,直接控制硬件 2. 汇编语言 用英文标签取代二进制指令编写程序,本质也是直接控制硬件 3. 高级语言 用人能理解的表达方式去编 ...
- 002_logging
Java 中最通用的日志模块莫过于 Log4j 了,在 python 中,也自带了 logging 模块,该模块的用法其实和 Log4j 类似. Python 使用logging模块记录日志涉及四个主 ...
- sqlachemy 获取新创建对象的id,flush与commit
for account_info in valid_account_detail: try: account = account_info.get('account') password = acco ...
- hyperledger中文文档学习-1-词汇表
参考:https://hyperledgercn.github.io/hyperledgerDocs/glossary/ Chaincode - 链码,即智能合约 链码是一个运行在账本上的软件,它可以 ...
- OpenCV3计算机视觉Python语言实现笔记(四)
1. Canny边缘检测 OpenCV提供了Canny函数来识别边缘.Canny边缘检测算法有5个步骤:使用高斯滤波器对图像进行去噪.计算梯度.在边缘上使用非最大抑制(NMS).在检测到的边缘上使用双 ...
- Java IO(三)——字节流
一.流类 Java的流式输入/输出是建立在四个抽象类的基础上的:InputStream.OutputStream.Reader.Writer.它们用来创建具体的流式子类.尽管程序通过具体子类执行输入/ ...
- Keil软件常见配置
1.tab键占据字节数 Edit-->Configuration-->Tab Size-->安装上默认2个空格,这里改为4,符合通用代码编辑器的处理. 2.编码配置 Edit--&g ...
- Maven项目运行Junit测试用例 出现ClassNotFound
Maven 打包命令 clean package 会清空target下的目录 包含 test-classes 目录 这样执行junit的时候,会出现 ClassNotFound的错误 执行下面的命令即 ...
- SQLSERVER事务日志已满 the transaction log for database 'xx' is full
解决办法:清除日志 USE [master] GO ALTER DATABASE DNName SET RECOVERY SIMPLE WITH NO_WAIT GO ALTER DATABASE D ...
- CentOS 7从Python 2.7升级至Python3.6.1
引言: CentOS是目前最为流行的Linux服务器系统,其默认的Python 2.x,但是根据python社区的规划,在不久之后,整个社区将向Python3迁移,且将不在支持Python2, 那该如 ...