?? 信 息 的 漢 化.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 + -