if MessageDlg('Welcome to my Delphi application. Exit now?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
 
Close;
end;

MessageDlg用法

对话框类型:
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

  1.  
  2. procedure TForm1.Button1Click(Sender: TObject);
  3. var
  4. S:string;
  5. begin
  6. if MessageDlg('提示框',mtInformation,[mbok,mbyes],0)=mryes then
  7. messagebeep(MB_ICONEXCLAMATION);
  8. end;
  9.  
  10. TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
  11.  
  12. TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
  13. mbAll, mbNoToAll, mbYesToAll, mbHelp);
  14.  
  15. const
  16. mrNone = 0;
  17. mrOk = idOk;
  18. mrCancel = idCancel;
  19. mrAbort = idAbort;
  20. mrRetry = idRetry;
  21. mrIgnore = idIgnore;
  22. mrYes = idYes;
  23. mrNo = idNo;
  24. mrAll = mrNo + 1;
  25. mrNoToAll = mrAll + 1;
  26. mrYesToAll = mrNoToAll + 1;

MessageDlg()信息的汉化 
Delphi中的常量都放在consts.pas中,修改它可以达到汉化的目的.如: 
MessageDlg()显示的窗口标题及其中的 
按钮标题都是英文,虽然不影响使用,但在一个中文软件中总显得有些不协调. 
为此在consts.pas中查找以下内容: 
"SMsgDlgWarning" 

  1.  
  2. SMsgDlgWarning = 'Warning';
  3. SMsgDlgError = 'Error';
  4. SMsgDlgInformation = 'Information';
  5. SMsgDlgConfirm = 'Confirm';
  6. SMsgDlgYes = '&Yes';
  7. SMsgDlgNo = '&No';
  8. SMsgDlgOK = 'OK';
  9. SMsgDlgCancel = 'Cancel';
  10. SMsgDlgHelp = '&Help';
  11. SMsgDlgHelpNone = 'No help available';
  12. SMsgDlgHelpHelp = 'Help';
  13. SMsgDlgAbort = '&Abort';
  14. SMsgDlgRetry = '&Retry';
  15. SMsgDlgIgnore = '&Ignore';
  16. SMsgDlgAll = '&All';
  17. SMsgDlgNoToAll = 'N&o to All';
  18. SMsgDlgYesToAll = 'Yes to &All';

改成

  1.  
  2. SMsgDlgWarning = '警告';
  3. SMsgDlgError = '错误';
  4. SMsgDlgInformation = '提示';
  5. SMsgDlgConfirm = '确认';
  6. SMsgDlgYes = '是(&Y)';
  7. SMsgDlgNo = '不(&N)';
  8. SMsgDlgOK = '确定';
  9. SMsgDlgCancel = '取消';
  10. SMsgDlgHelp = '帮助(&H)';
  11. SMsgDlgHelpNone = '没有该帮助信息';
  12. SMsgDlgHelpHelp = '帮助';
  13. SMsgDlgAbort = '放弃(&A)';
  14. SMsgDlgRetry = '重试(&R)';
  15. SMsgDlgIgnore = '忽略(&I)';
  16. SMsgDlgAll = '全部(&A)';
  17. SMsgDlgNoToAll = '全都不(&O)';
  18. SMsgDlgYesToAll = '全都是(&A)';

然后重新编译Consts.pas,把Consts.duc 
拷到delphi的lib和slib子目录下,就一劳永逸啦!

Delphi中Messagedlg用法的更多相关文章

  1. Delphi中MessageBox用法

    消息框是个很常用的控件,属性比较多,本文列出了它的一些常用方法,及指出了它的一些应用场合. 1.最简单用法,不带图形 MessageBox(0,'不同意','提示',MB_OK); MessageBo ...

  2. Delphi 中ASSERT用法

    http://blog.csdn.net/dongyonggan/article/details/5780979 用法:ASSERT(表达式) 如果为假,ASSERT会产生一个EASSERTIONFA ...

  3. 教程-Delphi中Spcomm使用属性及用法详解

    Delphi中Spcomm使用属性及用法详解 Delphi是一种具有 功能强大.简便易用和代码执行速度快等优点的可视化快速应用开发工具,它在构架企业信息系统方面发挥着越来越重要的作用,许多程序员愿意选 ...

  4. Delphi中stringlist分割字符串的用法

    Delphi中stringlist分割字符串的用法 TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. 常规的用法大家都知道,现在来讨论它的一些高级的用法. 1.CommaT ...

  5. Delphi中TxmlDocument控件的用法 转

    Delphi中对XML文件的解析做的很好,比直接使用MS的MSXML2_TLB中的接口要方便很多,现称述于下面. 在讲之前先给出一个XML实例,在讲某些部分是要结合实例比较容易理解. 1<?xm ...

  6. 转delphi中nil的用法

    转自:http://blog.csdn.net/haiou327/article/details/6666124 delphi中nil的用法 和C++中的NULL一样的意思,指空值,它和0值不一样-- ...

  7. Delphi中 StrToIntDef函数的用法

    Delphi中 StrToIntDef函数的用法:比如我要判断一个文本框里输入的字符串能不能转换为integer类型,如果能,则返回转换后的整型数据,如果不能,则返回整数0,那么我就可以用strtoi ...

  8. delphi中Application.MessageBox函数用法详解

    delphi中Application.MessageBox函数用法详解 Application.MessageBox是TApplication的成员函数,声明如下:functionTApplicati ...

  9. Delphi中 弹出框的用法

    Delphi中的提示框有 Application.MessageBox  ShowMessage messagedlg 个人认为 相对来说 Application.MessageBox 更加灵活 也相 ...

随机推荐

  1. 字符串与byte数组转换

    string weclome=""; byte[] data = new byte[1024]; //字符串转byte数组 data = Encoding.ASCII.GetByt ...

  2. php简易灌水

    <?php $data = array ('content' => '白菜大侠','itemid'=>58); $data = http_build_query($data); $o ...

  3. HTML/CSS题库

    一.    填空题 使用文本编辑器编辑完HTML后,扩展名可以是__html___或___htm__. 表格的标签是____table______,单元格的标签是____td______. 在编辑ta ...

  4. 在cmd窗口中运行php命令

    1.首先安装php.我使用的是wamp,里面包含php5.5.12 2.将C:\wamp\bin\php\php5.5.12添加到环境变量Path中 3.在cmd中运行php -v可以查看php版本相 ...

  5. August 29th 2016 Week 36th Monday

    Every has the capital to dream. 每个人都有做梦的本钱. Your vision, our mission. That is an advertisment of UMo ...

  6. cookie的设置、获取以及删除

    首先介绍一下cookie的基本信息: cookie是以域为单位的,它必须放在服务器的的环境下,但是cookie的容量小,只有4kb,并且也不安全,还有入股cookie的名字相同,会修改或者覆盖原来的值 ...

  7. 多次快速点击相同button导致重复响应的问题

    Button在开发中经常用到,但是如果在瞬间点击多次时会出现多次响应事件的问题,今天给大家分享一下解决方法. 方法一:在Button响应事件中禁止Button允许点击, -(void)buttonAc ...

  8. C++ STL string

    要想使用标准C++中string类,必须要包含 #include <string>// 注意是<string>,不是<string.h>,带.h的是C语言中的头文件 ...

  9. GBDT原理实例演示 1

    考虑一个简单的例子来演示GBDT算法原理 下面是一个二分类问题,1表示可以考虑的相亲对象,0表示不考虑的相亲对象 特征维度有3个维度,分别对象 身高,金钱,颜值     cat dating.txt ...

  10. 单机安装Hadoop环境

    目的 这篇文档的目的是帮助你快速完成单机上的Hadoop安装与使用以便你对Hadoop分布式文件系统(HDFS)和Map-Reduce框架有所体会,比如在HDFS上运行示例程序或简单作业等. 先决条件 ...