delphi退出系统代码（delphi 退出程序代码）

今天给各位分享delphi退出系统代码的知识，其中也会对delphi 退出程序代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、delphi中 if MessageDlg('是否确定要退出系统？',mtWarning,[mbYes,mbNo],0,mbNo) = mrNo then Exit;
• 2、delphi 怎么使得在退出系统前检测数据是否保存,未保存则提示
• 3、关于delphi的代码问题。比较弱，请各位帮帮我，谢谢！
• 4、怎样让delphi中的关闭按钮现实退出整个程序 而不是退出当前窗口?

delphi中 if MessageDlg('是否确定要退出系统？',mtWarning,[mbYes,mbNo],0,mbNo) = mrNo then Exit;

弹出窗口让你确认是否要退出系统，若选择否则不退出，否则退出。

其中参数二是对话框的类型：即显示在对话框中的符号，有‘警告’，‘错误’，‘显示信息’，‘使用确定’，‘用户自定义类型’这几种。 参数三是对话框中要出现的按钮：集合类型， 参数四是在线帮助说明。参数五是默认选中的类型。

对话框类型：

mtwarning——含有感叹号的警告对话框

mterror——含有红色叉符号的错误对话框

mtinformation——含有蓝色i符号的信息对话框

mtconfirmation——含有绿色问号的确认对话框

mtcustom——不含图标的一般对话框，对话框的标题是程序的名称

按钮组中的按钮：

mbYes——mrYes或6

mbNo——mrNo或7

mbOk——mrOk或1

mbCancel——mrCancel或2

mbHelp——help按钮

mbAbort——mrAbort或3

mbRetry——mrRetry或4

mbIgnore——mrIgnore或5

mbAll——mrAll或8

mbNoToAll——9

mbYesToAll——10

delphi 怎么使得在退出系统前检测数据是否保存,未保存则提示

建立一个全局布尔变量，当开始输入数据后设置它为假，保存数据后再置为真，关闭窗口时检测该变量，如果为假，抛出对话框，提醒用户保存数据，如果YES就保存数据后，再退出，如果NO就直接关闭窗口

关于delphi的代码问题。比较弱，请各位帮帮我，谢谢！

你的MessageBox(frmmain.handle,'您真的要退出系统吗？','真的退出？',

MB_YESNO+MB_ICONQUESTION);

调用了2 次，当然会点两次，才会两个都关闭，虽然你看上去是一个。你可以把case前面的那个去掉就可以了，或者为了清晰起见，定义一个整形变量a，

a:=MessageBox(frmmain.handle,'您真的要退出系统吗？','真的退出？',

MB_YESNO+MB_ICONQUESTION);

case a of……即可。

怎样让delphi中的关闭按钮现实退出整个程序 而不是退出当前窗口?

如果想退出整个程序，你可以直接使用Appliction的函数：

procedure TForm1.btn2Click(Sender: TObject);

begin

Application.Terminate;

end;

关于delphi退出系统代码和delphi 退出程序代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。