Farbe der Buttons und Label

[toms]

Hallo Jan

Das TColorGrid hat ein OnChange Ereignis. Dieses wird ausgelöst, wenn eine andere Farbe ausgewählt wird.

In diesem Ereignis kannst du dann die ausgewählte Farbe z.B einem TLabel zuweisen.

Delphi-Quellcode:

procedure TForm1.ColorGrid1Change(Sender: TObject);
begin
  Label1.Color := TColorGrid(Sender).ForegroundColor; // resp. TColorGrid(Sender).BackgroundColor
end;