Zwischen Sprachen umschalten?

[AlexII]

Zitat von Alfi001:

Vor dem TranslateComponent(Self):

UseLanguage('<ISOCODE>');

also z.B:

UseLanguage('de-DE');

Die zu der Sprache gehörenden PO (bzw. MO) Dateien müssen natürlich im jeweiligen Sprachverzeichnis vorhanden sein.

So etwa?

Delphi-Quellcode:

procedure TForm1.Deutsch1Click(Sender: TObject);
begin
UseLanguage('de-DE');
TranslateComponent(Self);
end;

procedure TForm1.Englisch1Click(Sender: TObject);
begin
UseLanguage('en-EN');
TranslateComponent(Self);
end;