MessageDlg
1.MessageDlg function
在屏幕中间显示一个消息对话框
Displays a message dialog box in the center of the screen.
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;
HelpCtx: Longint): Word;
type TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
type
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll,
mbNoToAll, mbYesToAll, mbHelp);
TMsgDlgButtons = set of TMsgDlgBtn;
const
mbYesNoCancel = [mbYes, mbNo, mbCancel];
mbYesAllNoAllCancel = [mbYes, mbYesToAll, mbNo, mbNoToAll, mbCancel];
mbOKCancel = [mbOK, mbCancel];
mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
mbAbortIgnore = [mbAbort, mbIgnore];
begin
if MessageDlg('Welcome to my Object Pascal application. Exit now?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
MessageDlg('Exiting the Object Pascal application.', mtInformation,
[mbOk], 0);
Close;
end;
2.ShowMessage
出现一个含有ok按钮的消息框
Displays a message box with an OK button.
procedure ShowMessage(const Msg: string);
3.MessageBox
为用户显示一个特定的消息
Displays a specified message to the user.
function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
with Application do
begin
NormalizeTopMosts;
MessageBox('This should be on top.', 'Look', MB_OK);
RestoreTopMosts;
end;
转载于:https://www.cnblogs.com/sideandside/archive/2007/04/27/729954.html
MessageDlg相关推荐
- Delphi中Messagedlg用法
Delphi中Messagedlg用法 if MessageDlg('即将退出,是否继续?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin ...
- MessageBox、MessageBeep、Beep 和 messagedlg用法
消息框是个很常用的控件,属性比较多,本文列出了它的一些常用方法,及指出了它的一些应用场合. 1.最简单用法,不带图形 MessageBox(0,'不同意','提示',MB_OK); MessageBo ...
- Delphi Access violations 问题的解决之道
Delphi Access violations 问题的解决之道 Windows用户可能经常会看到类似于错误提示:"Error:Access violation at address 836 ...
- Delphi与Ole,Word,Excel,查找与替换等
Delphi与Word之间的融合技术(下)zt 来自:yzhshi, 时间:2002-2-2 14:24:00, ID:902680 前面我就Delphi中调用Word写了一些,比较注重于具体实现,对 ...
- 通过TStringList保存csv文件,只要循环.Add表格里面的每行记录进去,保存即可
dlgSave := TSaveDialog.Create(nil);dlgSave.filter := 'CSV文件|*.CSV';dlgSave.DefaultExt := '*.CSV';dlg ...
- 多种数据DELPHI备份方式(源码)
Access: //数据备份(创建一个新的备份文件). procedure TMainForm.BitBtn1Click(Sender: TObject); var F:TShFileOpSt ...
- MessageBox不能应用皮肤的解决办法
今天在开发的过程中发现,程序应用皮肤后,MessageBox不能随着皮肤的改变而改变 最初想到了用ShowMessage来替代MessageBox,但是遇到需要用户进行选择的对话框时,ShowMess ...
- Delphi控制Excel输出上标示例
直接上代码吧,这个示例在Excel中输出一个M2: unit FfrmMain;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtil ...
- 教程-Delphi中Spcomm使用属性及用法详解
Delphi中Spcomm使用属性及用法详解 Delphi是一种具有 功能强大.简便易用和代码执行速度快等优点的可视化快速应用开发工具,它在构架企业信息系统方面发挥着越来越重要的作用,许多程序员愿意选 ...
最新文章
- word2vec模型评估_干货 | NLP中的十个预训练模型
- centos7安装java8
- 大话ion系列(二)
- java perl5compiler,Java中正则表达式使用方法详解(四)
- 【CodeForces - 798D】Mike and distribution (思维构造,贪心,黑科技)
- JavaScript原型与原型链
- 胆大,心黑,脸皮厚,某大佬透露的把妹绝招
- 2021年了,Redis复制原理你应该理解!
- java 守护进程 linux_Java实现Linux下服务器程序的双守护进程
- 利用XML实现通用WEB报表打印(参考)
- LOJ#6360. 复燃「恋之埋火」(最小圆覆盖+高斯消元)
- 使用telnet发送email(内嵌图片,附件)
- GBASE数据库迁移(Oracle到GBase 8s的数据类型映射)
- ASP.NET 利用Outlook发送邮件
- android 实现ble蓝牙自动配对连接
- 二叉树任意两点间最短路径(利用栈-找公共祖先,不需要建立二叉树)
- ESXi 8.0 Install
- 牛客小白月赛24 J.建设道路
- HM4064原厂5A四节锂电池充电管理集成电路IC
- 基于xml的数据交换技术
热门文章
- Win32ASM学习[11]:逻辑运算
- 160 - 54 eKH
- python Requests登录GitHub
- 后台系统可扩展性学习笔记(十二)NoSQL
- Python 如何利用函数修改函数外list?
- 【C++ grammar】nullptr and Dynamic Memory Allocation (空指针和动态内存分配)
- lock_sh 示例_带有示例的Python date __str __()方法
- Python-杨辉三角
- php终止脚本执行(exit、die、return)
- androidstudio 日历视图怎么显示农历_中秋国庆旅游攻略怎么做?用这个便签软件很简单...