如何让showmessage和messagebox显示中求解答
发布网友
发布时间：2022-06-09 11:34
共1个回答
热心网友
时间：2023-09-25 18:56
最便捷的方法是建议你使用messagebox代替。
如果你用showmessage(),不用修改源程序，也能达到将文字改为汉字的效果。
你可以这样：
2.一步一步，直到出现Translation Manager窗口
3。展开左边窗口树控件定位到Resource Scripts，修改右边窗口内容
4。找到ID号为consts_SMsgDlgOk的内容将’OK‘改为’确定‘保存结果关闭窗口
5。File|Save all
6.重新编译，OK！(此方法，摘自csdn，留给有兴趣的朋友验证)
---------------------------------------------------------------------------------------------------------------------------------------------
如果你使用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 of Pointer = ( @SMsgDlgYes, @SMsgDlgNo, @SMsgDlgOK, @SMsgDlgCancel, @SMsgDlgAbort,@SMsgDlgRetry, @SMsgDlgIgnore, @SMsgDlgAll, @SMsgDlgNoToAll, @SMsgDlgYesToAll, @SMsgDlgHelp); 改为 ButtonCaptions: array of string = ( '是', '否', '确定', '取消', '退出','重试', '跳过', '所有', '全不', 'YesToAll', '帮助'); 把 LoadResString(ButtonCaptions) 改为ButtonCaptions （注意共有二处，因为上面已经将指针类型改为String，所以这里直接用ButtonCaptions ）
1.、随便新建一个工程
