【转】Messagedlg
2024-08-30 20:02:21
) = mrYes then Close;
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
procedure TForm1.Button1Click(Sender: TObject); var S:string; begin )=mryes then messagebeep(MB_ICONEXCLAMATION); end;
MessageDlg()信息的汉化
Delphi中的常量都放在consts.pas中,修改它可以达到汉化的目的.如:
MessageDlg()显示的窗口标题及其中的
按钮标题都是英文,虽然不影响使用,但在一个中文软件中总显得有些不协调.
为此在consts.pas中查找以下内容:
"SMsgDlgWarning"
把
SMsgDlgWarning = 'Warning'; SMsgDlgError = 'Error'; SMsgDlgInformation = 'Information'; SMsgDlgConfirm = 'Confirm'; SMsgDlgYes = '&Yes'; SMsgDlgNo = '&No'; SMsgDlgOK = 'OK'; SMsgDlgCancel = 'Cancel'; SMsgDlgHelp = '&Help'; SMsgDlgHelpNone = 'No help available'; SMsgDlgHelpHelp = 'Help'; SMsgDlgAbort = '&Abort'; SMsgDlgRetry = '&Retry'; SMsgDlgIgnore = '&Ignore'; SMsgDlgAll = '&All'; SMsgDlgNoToAll = 'N&o to All'; SMsgDlgYesToAll = 'Yes to &All'; SMsgDlgClose = '&Close';
改成
SMsgDlgWarning = '警告'; SMsgDlgError = '错误'; SMsgDlgInformation = '提示'; SMsgDlgConfirm = '确认'; SMsgDlgYes = '是(&Y)'; SMsgDlgNo = '不(&N)'; SMsgDlgOK = '确定'; SMsgDlgCancel = '取消'; SMsgDlgHelp = '帮助(&H)'; SMsgDlgHelpNone = '没有该帮助信息'; SMsgDlgHelpHelp = '帮助'; SMsgDlgAbort = '放弃(&A)'; SMsgDlgRetry = '重试(&R)'; SMsgDlgIgnore = '忽略(&I)'; SMsgDlgAll = '全部(&A)'; SMsgDlgNoToAll = '全都不(&O)'; SMsgDlgYesToAll = '全都是(&A)'; SMsgDlgClose = '关闭(&C)';
然后重新编译Consts.pas,把Consts.dcu
拷到delphi的lib子目录下,就一劳永逸啦!
最新文章
- WPF做验证码,小部分修改原作者内容
- HDMI之CEC DDC学习笔记(可能有误)
- PYTHON学习之路_PYTHON基础(2)
- codeforces 712A. Memory and Crow
- [Linux]centOS7-1-1503-x86_64下安装VM-TOOLS
- Unity3D独立游戏开发日记(一):动态生成树木
- JS常用的设计模式(13)——组合模式
- 未能加载文件或程序集";System.Data,Version=2.0.0.0,Culture=neutral,PublicKeyToken=b77a5c561934e089";或它的某一个依赖项。系统找不到指定的文件。
- android 轮播图
- UnicodeEncodeError: 'gbk' codec can't encode character '\xa0' in position 46:illegal multibyte sequence
- 在 ios 中的日期格式
- 【BZOJ4028】[HEOI2015]公约数数列(分块)
- CentOS7 防火墙(firewall)的操作命令(转)
- Apache Flink中的广播状态实用指南
- 如何获取微信小店小程序的AppID
- vue 选城市三级联动
- 【设计模式】—— 享元模式Flyweight
- (并查集)小希的迷宫 --HDU -- 1272
- 转:eclipse里面显示中文乱码
- jupyter 修改工作路径
热门文章
- vs2013 ie10
- BZOJ1407_NOI2002_荒岛野人_Savage_C++
- python-appium手机自动化测试(仅需安装包)前期准备(pydev-eclipse编辑器)
- Flash图表控件FusionCharts如何自定义图表的工具提示
- 输出1——n的排列(深度优先搜索)
- 【spring 7】spring和Hibernate的整合:声明式事务
- c++ 类模版、成员函数模版、函数模版 用法
- CSS 之 Opacity多浏览器透明度兼容处理
- iOS 平台开发OpenGL ES程序注意事项
- (笔记)angular Select选择