Delphi汉化MessageDlg消息提示框的实现方法（同样适用于Dev dxmessage）

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