• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi ShowMessage 中OK按钮的汉化,简单方法

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

使用Delphi的ShowMessage,显示出来的按钮总是英文,一般情况下,这倒是没什么,我们可以用Windows API中的MessageBox来代替它。只是,如果你使用的Delphi XE,并且使用了它非常酷的皮肤功能,你会发现,ShowMessage的对话框使用了皮肤,而Windows API中的MessageBox却没有使用皮肤外观,所以,这个汉化有时候还是有点用处的,避免了我们再次造轮子的事情发生。

下面是汉化的步骤,非常简单(Delphi 2010,其它版本可以以此参考):

1、File –> New –> Other :

2、选择如上图的类型,双击或点击OK,然后选择如下图:

3、这样我们的项目文件列表里就多出了这样一个文件:

我们打开它编写如下的内容:

STRINGTABLE
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
65271, 	"确定(&O)"
65272, 	"取消(&C)"
65343, 	"确定(&O)"
}

4、保存、编译,运行,看看我们的ShowMessage的那个按钮,是不是汉化了啊?:

 

是不是很简单呢?原理也是很简单,我们通过自己定义的字符串资源,替换了Delphi默认的字符串资源,如果你有一些PE资源查看工具的话,你就可以很清除的看到我们替换了一些内容,如下(我使用的是ResHacker):

 

如果你没有成功的话,看一看你的Project源文件中是否有这样一行,如果没有的话,手动添加一下:

program Project2;

//这一行很重要
{$R 'CHS.res' 'CHS.rc'}

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

 

 

这篇文章就到这里吧。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
在Ubuntu 16.04下安装Matlab 2017a发布时间:2022-07-18
下一篇:
MATLAB中冒号的用法发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap