Captions ändern

[xZise]

Sorry, aber es ist so... Ich habe ganz viele Labels die geändert werden sollen!

Wenn man dann auf Okay klickt macht er folgendes:

Delphi-Quellcode:

ini.WriteBool('Extras', 'Englisch', English.Checked);
    if English.Checked then begin
      //dies funktioniert:
      UMain.FFreggels.Save.Caption := 'Save';
      UMain.FFreggels.Load.Caption := 'Load';
      UMain.FFreggels.Start.Caption := 'Start';
      UMain.FFreggels.Quit.Caption := 'Quit';
      UMain.FFreggels.Einstellung.Caption := 'Settings';
      UMain.FFreggels.Help.Caption := 'Help';
      UMain.FFreggels.label1.Caption := 'Freeze:';
      UMain.FFreggels.label2.Caption := 'Progress:';
      UMain.FFreggels.label3.Caption := 'Lives:';
      UMain.FFreggels.label4.Caption := 'Score:';
      UMain.FFreggels.label6.Caption := 'Lvl Steps:';
      UMain.FFreggels.label7.Caption := 'Time:';
      UMain.FFreggels.label8.Caption := 'Lvl score:';
      UMain.FFreggels.label9.Caption := 'Steps:';
      //dies funktioniert nicht:
      Einstellungen.Label2.Caption := 'Graphical configuration:';
      Einstellungen.Search.Caption := 'Browse';
      Einstellungen.BtnKeyChange.Caption := 'Change';
      Einstellungen.EndsRegist.Caption := 'Set Endings';
    end else begin
      //dies funktioniert:
      UMain.FFreggels.Save.Caption := 'Speichern';
      UMain.FFreggels.Load.Caption := 'Laden';
      UMain.FFreggels.Start.Caption := 'Starten';
      UMain.FFreggels.Quit.Caption := 'Beenden';
      UMain.FFreggels.Einstellung.Caption := 'Einstellungen';
      UMain.FFreggels.Help.Caption := 'Hilfe';
      UMain.FFreggels.label1.Caption := 'Geforen:';
      UMain.FFreggels.label2.Caption := 'Fortschritt:';
      UMain.FFreggels.label3.Caption := 'Leben:';
      UMain.FFreggels.label4.Caption := 'Punkte:';
      UMain.FFreggels.label6.Caption := 'Lvl Schritte:';
      UMain.FFreggels.label7.Caption := 'Zeit:';
      UMain.FFreggels.label8.Caption := 'Lvl Punkte:';
      UMain.FFreggels.label9.Caption := 'Schritte:';
      //dies funktioniert nicht:
      Einstellungen.Label2.Caption := 'Grafische Einstellungen:';
      Einstellungen.Search.Caption := 'Durchsuchen';
      Einstellungen.BtnKeyChange.Caption := 'Ändern';
      Einstellungen.EndsRegist.Caption := 'Endungen einstellen';
    end;
[...]
    close;

Wenn ich dann wieder die Form über ein Label lade

Delphi-Quellcode:

procedure TFFreggels.EinstellungClick(Sender: TObject);
begin
  Einstellungen.ShowModal;
end;

sind die oben gemachten änderungen NICHT übernommen.
Erst wenn ich das Prog beende und "neustarte"!

Hier Create und Free:

Delphi-Quellcode:

//OnCrate
procedure TFFreggels.FormCreate(Sender: TObject);
[...]
begin
  Einstellungen := TEinstellungen.Create(nil);
  [...]
end;

// OnClose
procedure TFFreggels.FormClose(Sender: TObject; var Action: TCloseAction);
[...]
begin
  [...]
  Einstellungen.Destroy;
end;

Ich hoffe das hilft euch weiter ...