1、在form放置tlang组件。
2、双击lang1组件。扫描已有组件。
3、添加语言种类。
4、根据选择语言,输入显示内容。
5、添加字串变量。
6、代码。
procedure TForm1.Button1Click(Sender: TObject);
begin
self.Lang1.Lang:='cn';
ShowMessage(lang1.LangStr['cn'].Values['message'])
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
self.Lang1.Lang:='en';
ShowMessage(lang1.LangStr['en'].Values['message'])
end;
5、结果。
参考:http://docwiki.embarcadero.com/CodeExamples/Rio/en/FMXTLang_(Delphi)