在Delphi下，如何使ShowMessage中的按钮中文化
如果你使用messagedlg(对showmessage也适用)可以汉化定义按钮caption的常量，具体操作步骤如下：
1. 打开文件consts.pas(在Delphi安装目录的/source/vcl下)
2.
将以下资源字符串常量的值进行改动：
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)全是';
----
经过这样改动后，对应按钮的热键仍然可以使用。
3.打开文件dialogs.pas(在Delphi安装目录的/source/vcl下)
4.查到ButtonCaptions:
把
ButtonCaptions: array[TMsgDlgBtn] of Pointer = (
@SMsgDlgYes, @SMsgDlgNo, @SMsgDlgOK, @SMsgDlgCancel,
@SMsgDlgAbort,@SMsgDlgRetry, @SMsgDlgIgnore, @SMsgDlgAll,
@SMsgDlgNoToAll, @SMsgDlgYesToAll, @SMsgDlgHelp);
改为
ButtonCaptions: array[TMsgDlgBtn] of string = (
'是',
'否',
'确定',
'取消',
'退出','重试',
'跳过',
'所有',
'全不',
'YesToAll', '帮助');
把
LoadResString(ButtonCaptions[B]) 改为ButtonCaptions[B]
（注意共有二处，因为上面已经将指针类型改为String，所以这里直接用ButtonCaptions[B] ）
5. 修改后编译生成dialog.dcu、consts.dcu文件。（如何编译请参照本博客delphi技巧13）
6. 将dialog.dcu、consts.dcu文件拷贝到../delphi6/lib目录下。