Как перевести ListBoxitem с FireMonKey?

Question

У меня есть заполненная форма списка таблицы базы данных. Я хочу добавить последний элемент под названием «вернуться назад», и я добавляю его из исходного кода таким образом:

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

У меня есть компонент Tlang со строкой «вернуться назад», переведенный на другие языки, но этот элемент не трансальтен (он всегда показывает «вернуться назад»).

Как я могу установить его для перевода с помощью TLANG (все компоненты, добавленные из дизайна и все ShowMessage, показаны правильно переведены).

Спасибо

Answer 1

Вы можете получить текущий переведенный текст программно от вашего источника Go Back:

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 и выше