📄 信 息 的 汉 化.htm
字号:
<html>
<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
也谈Delphi系统提示信息的汉化
</title>
<!--***********-->
</head>
<body bgcolor="#FFFFFF" >
<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
也 谈Delphi 系 统 提 示 信 息 的 汉 化
</h2></font>
<h3>
湖 南 创 智 软 件 园
<br>邓 集 豆
</h3>
</center>
<font color="#ffffff">----</font>
在Delphi 编 程 中 程 序 员 经 常 会 用 到ShowMessage、MessageDlg 函 数. 但ShowMessage、MessageDlg 的 提 示 信 息 为 英 文 的Yes、No、OK、Cancel、Abort、Retry 等, 这 些 信 息 使 得 用 户 使 用 起 来 非 常 不 方 便, 怎 样 把 它 们 一 次 性 汉 化 中 文 呢 ？ 本 人 在 济 南 电 信 企 业 网 的 研 发 中 采 用 如 下 解 决， 以 供 参 考
<pre>
1.打开文件dialogs.pas(在Delphi安装目录的\source\vcl下)
2.查到ButtonCaptions:
3.把 ButtonCaptions: array[TMsgDlgBtn] of Pointer = (
@SMsgDlgYes, @SMsgDlgNo, @SMsgDlgOK, @SMsgDlgCancel,
@SMsgDlgAbort,
@SMsgDlgRetry, @SMsgDlgIgnore, @SMsgDlgAll,
@SMsgDlgNoToAll, @SMsgDlgYesToAll,
@SMsgDlgHelp);
改为
ButtonCaptions: array[TMsgDlgBtn] of string = (
'是', '否', '确定', '取消', '退出',
'重试', '跳过', '所有', '全不',
'YesToAll', '帮助');
4把 LoadResString(ButtonCaptions[B])
改为ButtonCaptions[B]
（注意共有二处）
5 编译成dialog.dcu文件
(在..\delphi 4.0\source\vcl
所在目录下运行dbcc32 dialog.pas)
6并将编译生成dialog.dcu文件拷贝到
..\delphi 4.0\lib目录下即可。
7重启DELPHI创建一个APPLICATION
在窗口中一个button1
在button1的click事件中写showmessage('测试showmessage');
</pre>
<font color="#ffffff">----</font>
运 行 即 可 发 现 提 示 信 息 以 汉 化
<p><font color="#ffffff">----</font>
( 注: 如 果 你 原 来 作 的 程 序 中 用 到showmessage、MessageDlg， 只 需 把 程 序 重 新 编 译 即 可)
此 方 法 已 在win95/98/nt 环 境 下 调 试 成 功， 有 兴 趣 的 朋 友 可 试 一 试。
<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small>
<br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -