当前位置: 开源爱好者 » 编程教程 » Delphi教程 » 正文

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文件即可)。

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图