Delphi汉化MessageDlg消息提示框的实现方法

Delphi汉化消息提示框的实现方法,例:MessageDlg提示框的汉化:

(1)在Delphi的安装目录的\Source\Vcl文件夹中找到Consts.pas(XE后应为Vcl.Consts.pas)单元文件;

(2)新建一个工程文件,并保存,将Consts.pas(或Vcl.Consts.pas)单元复制到保存的文件夹,并引用该单元文件;

(3)修改单元文件以下内容进行汉化,修改后进行保存:

SMsgDlgWarning = '警告';
SMsgDlgError = '错误';
SMsgDlgInformation = '提示';
SMsgDlgConfirm = '确认';
SMsgDlgYes = '是';
SMsgDlgNo = '否';
SMsgDlgOK = '确定';
SMsgDlgCancel = '取消';
SMsgDlgHelp = '帮助';
SMsgDlgHelpNone = '没有提供帮助';
SMsgDlgHelpHelp = '帮助';
SMsgDlgAbort = '放弃';
SMsgDlgRetry = '重试';
SMsgDlgIgnore = '忽略';
SMsgDlgAll = '全部';
SMsgDlgNoToAll = '全选“不是”';
SMsgDlgYesToAll = '全选“是”';
SMsgDlgClose = '关闭';//(XE后有)
SUsername = '用户名';//(XE后有)
SPassword = '密码';//(XE后有)
SDomain = '域名';//(XE后有)
SLogin = '登录';//(XE后有)

(4)编译工程文件;在编译好的目录找到Consts.dcu,将该文件复制到程序目录\Lib文件夹下覆盖同名.dcu文件即可。(注:XE后可以选择平台进行编译,32位将Vcl.Consts.dcu文件复制到程序目录lib\win32\debug和lib\win32\release文件夹覆盖同名.dcu文件即可,64位将Vcl.Consts.dcu文件复制到程序目录lib\win64\debug和lib\win64\release文件夹覆盖同名.dcu文件即可)。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值