Hallo Wicht, so richtig will es bei mir nicht, schade das es keine demo gibt.
Nach mehrmaligem Aendern der Auswahl in der ComboBox wird nichts mehr übersetzt. Was mache ich denn falsch?
Danke im voraus Renê
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Combobox1.Items.Add('Deutsch');
Combobox1.Items.Add('Englisch');
Combobox1.Items.Add('Französisch');
ComboBox1.ItemIndex:=0;
Language.LoadFromFile(ProgDir + 'lang.lpf'); Language.SetLanguage('de'); Language.Translate(Self);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0: begin Language.LoadFromFile(ProgDir + 'lang.lpf'); Language.SetLanguage('de'); Language.Translate(Self); end;
1: begin Language.LoadFromFile(ProgDir + 'lang.lpf'); Language.SetLanguage('en'); Language.Translate(Self);end;
2: begin Language.LoadFromFile(ProgDir + 'lang.lpf'); Language.SetLanguage('fr'); Language.Translate(Self);end;
end;
end;
initialization
ProgDir := ExtractFilePath(Paramstr(0));
end.