Farbe speichern und wiedergeben

[Rippo]

Andere Frage zu TButtonColor

Wenn ich die farbe auswähle, wie schaffe ich es das sich diese Farbe auf die anderen Formulare überträgt und abgespeichert wird? und beim laden diese ausgwählte farbe erscheint?

Delphi-Quellcode:

procedure TfrmKonfig.ButtonColor1Click(Sender: TObject);
begin
  Color := ButtonColor1.SymbolColor;
end;

Delphi-Quellcode:

                   //Farbe Speichern
procedure TfrmKonfig.SaveColorSettings;
const
  IniName = 'C:\Color.ini';
var
  Ini: TIniFile;
  Color : Integer;
begin
 Ini := TIniFile.Create(IniName);
 try
   Ini.WriteInteger('Farben', 'Ident', Color);
 finally
   Ini.Free;
 end;
end;
                   // Farbe wiedergeben
procedure Tfrmkonfig.LoadColorSettings;
const
  IniName = 'C:\Color.ini';
var
  Ini: TIniFile;
  Color : Integer;
Begin
  Ini := TIniFile.Create(IniName);
  try
   Color := TColor(Ini.ReadInteger('Farben','Ident', Color));
   //frmKonfig.Color := TColor(Ini.ReadInteger('farben', 'Ident', Color));
  finally
   Ini.Free;
  end;
end;

Delphi-Quellcode:

procedure TfrmKonfig.btnSpeichernClick(Sender: TObject);
 begin
    Color := ButtonColor1.SymbolColor;
    SaveColorSettings;
 end;

Delphi-Quellcode:

procedure TfrmKonfig.FormShow(Sender: TObject);
begin
    LoadColorSettings;
end;