发文章
发文工具
撰写
网文摘手
文档
视频
思维导图
随笔
相册
原创同步助手
其他工具
图片转文字
文件清理
AI助手
留言交流
procedure TForm2.btn1Click(Sender: TObject); begin
self.ModalResult := mrok;
//注意不要close; end;
1、包含ModalResult属性的按钮执行完毕之后,该按钮所在的窗体会自动关闭,不用在OnClick事件中添加诸如Close语句。 2、同时将按钮的ModalResult属性值赋值给窗体的ModalResult属性(注意:任何窗体都有这个属性!) 3、还有就是窗体的ModalResult属性又会自动传递给showmodal方法,作为该方法的返回值。
如果设置form2窗体的一个按钮的ModalResult为mrYes的话,点击此按钮关闭此窗体的时候,会返回mrYes,从而显示OK 1>. 在form1中可以调用: if Form2.ShowModal = mrok then ShowMessage('OK');
来自: quasiceo > 《待分类1》
0条评论
发表
请遵守用户 评论公约
delphi的消息对话框
MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容、信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及...
Delphi : 制作程序启动欢迎界面
//初始化 loginform:=tloginform.Create(application);//動態創建啟動窗體 loginform.Show;//顯示 loginform.Update; sleep(2000);//系統延時2秒 loginform.Hide;//2秒后啟動窗體隱藏 Appl...
修改默认确定按钮选中状态和回车响应
解决办法:将要设置的按钮的属性defaultbutton选中,并且如果窗体上其他按钮的defaultbutton被选中的话,应该取消,之后按下Ctrl+D键,设置该按钮的Tab顺序为第一个,之后要设置的按钮才会真正的成为窗...
Delphi中messagedlg
Delphi中messagedlg.标签:Delphi if MessageDlg(''Welcome to my Delphi application. Exit now?'', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin.MessageDlg()信息的汉化 ...
第一章 Delphi快速入门(四)
PopupMenu是弹出式菜单,例如,我们前文的小例程在对齐部件时用到的Delphi菜单,就是弹出式的。为菜单编制功能,可以双击菜单条,或在特定菜单条的Events页上,双击它响应的事件的值段,Delphi将回到代...
Delphi 6 程序员代码编写标准指南一
TForm1=class(TForm);TForml=class(TForm) Buttonl:Button; label1:Tlabel;procedure FormCreate(Sender:TObject);procdurc AppException(Sender:Tobect;E: Exception);procedure ButtonlClick(...
Delphi for iOS开发指南(15):在iOS应用程序中使用SQLite
Delphi for iOS开发指南(15):在iOS应用程序中使用SQLite.iOS开发指南(9):在iOS应用程序中使用ListBox组件来显示TableView.请查看“iOS...
Delphi快速入门二
1.3.3 分组、分界组件分组组件把其他的组件组合成一组,例如上述的单选按钮组件Radio Button,就需要放入以下的成组组件中。1.3.5 关系图、文件列表组件1.OutLine组件OutLine(略图)组件在Win 3.1...
UNIGUI如何禁止关闭新窗口
UNIGUI如何禁止关闭新窗口 - SUNSTONE的Delphi笔记 - CSDN博客UNIGUI如何禁止关闭新窗口。1.取消新窗体的systemmenu,目的是去掉窗体的关闭按钮X.2.在窗体加上新按钮,点击事件为。close;3.在窗体的onc...
微信扫码,在手机上查看选中内容