📄 060803_05.htm

📁 对于学习很有帮助
💻 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>
<p><font color="#ffffff">----</font>

1999年4月28日邓先生的文章谈到，如何将ShowMessage、MessageDlg的提示信息进行汉化，实际上，我们可以不改动dialogs.pas,而通过改动相应的资源字符串常量的值达到汉化的目的。
<p><font color="#ffffff">----</font>
1. 打开文件consts.pas(在Delphi安装目录的\source\vcl下)
<p><font color="#ffffff">----</font>
2. 将以下资源字符串常量的值进行改动：
<pre>
  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)全是';
</pre>
<p><font color="#ffffff">----</font>
经过这样改动后，对应按钮的热键仍然可以使用。
<p><font color="#ffffff">----</font>
3,4 参见<a href="/99/tips/9904/042702_05.htm">邓文</a>
<p><font color="#ffffff">----</font>
5. 编译成consts.dcu文件，具体方法如下：
<p><font color="#ffffff">----</font>
建立一application，并引用consts.pas;将consts.pas拷贝到对应的目录下；运行程序，可得到consts.dcu。
<p><font color="#ffffff">----</font>
6. 并将编译生成consts.dcu文件拷贝到..\delphi4.0\lib目录下。
<p><font color="#ffffff">----</font>
至此，汉化完成。以上在windwos98、delphi4.0环境下实验通过。


 



<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small> 
<br>
</p>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -