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

果子

以下为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

bugxiong

是翻译用的吧？

richard9902

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