Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 6695|回复: 2

支持Delphi,BCB,Kylix,Fpc的多语言组件

[复制链接]

该用户从未签到

发表于 2009-2-11 15:18:27 | 显示全部楼层 |阅读模式

以下为DELPHI的实例.

//初始化翻译
procedure TForm1.FormCreate(Sender: TObject);
begin
  //UseLanguage('en');
  TP_GlobalIgnoreClass(TFont);
  TranslateComponent(Application);
end;
//翻译代码中的字符串
procedure TForm1.btn5Click(Sender: TObject);
begin
  MessageBox(0, PChar(string(_('这是一个提示框.'))), PChar(string(_('提示'))), 48);
end;
//切换语言
procedure TForm1.btn2Click(Sender: TObject);
begin
  UseLanguage('en');
  RetranslateComponent(Application);
end;

关于一些工具,可以搜索:gnugettext

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册(注册审核可向QQ群索取)

x
回复

使用道具 举报

该用户从未签到

发表于 2009-2-11 15:21:56 | 显示全部楼层
是翻译用的吧?
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2012-6-6 14:15:18 | 显示全部楼层
Delphi,BCB,Kylix,Fpc的多语言组件
回复 支持 反对

使用道具 举报

*滑块验证:

本版积分规则

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

GMT+8, 2024-3-19 12:54 , Processed in 0.032076 second(s), 10 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表