如何使用FireMonKey翻译ListBoxItem？

Question

我有一个列表框填充的表单数据库表。我想添加最后一个名为“返回”的项目，然后以这种方式从源代码添加它：

lbDGroup.Items.Add('GO BACK');

我有一个带有“回去”字符串的tlang组件，该字符串翻译成另一种语言，但是该项目没有透射（它总是显示“返回”）。

我如何将其设置为用tlang翻译（从设计中添加的所有组件和所有showmessages均已正确翻译）。

谢谢

Answer 1

您可以通过编程返回来源获取当前翻译文本：

var
  dGOBACK: string;
begin
  dGOBACK := Lang1.LangStr[Lang1.Lang].Values['GO BACK'];
  lbDGroup.Items.Add(dGOBACK);
end;

Answer 2

更轻松：

uses
  FMX.Types;

begin
  lbDGroup.Items.Add(Translate('GO BACK'));
end;

在Delphi FMX XE6及以上