Zwischen Sprachen umschalten?

[Ralf Kaiser]

Zitat von AlexII:

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;

Fast.

Du musst dir merken ob das Formular schon mal übersetzt wurde. NUr beim ersten Mail verwendest du "TranslateComponent()". Bei allen folgenden Malen verwendest du "ReTranslateComponent()"!

Ansonsten reicht auch ein "UseLanguage('de')" wenn ein Sprachverzeichnis "DE" vorhanden ist (der Parameter von "UseLanguage" gibt letztendlich an in welchen Verzeichnis sich die MO Datei befindet. Du musst als nicht füe Deutsch-Östereich, Deutsch-Schweiz, Deutsch-... alle MO Dateien mitliefern. Es reicht wen ein Verzeichnis für "DE" existiert (es sei denn du hast in den verschiedenen Sprachvarianten unterschiedliche Formulierungen)