Farbe der Buttons und Label

[Jan.R]

Hallo Leute!


Kann mir mal jemand sagen wie man mit einem colorgrid die Farbe für ein Button und für ein Label verändern kann?

Mit der Form selbst weiß ich ja wie es geht!

Aber könnt ich dann für ein label nicht schreiben: form1.label1.color := colorgrid2.font.color;

Das funktioniert nicht!!!

Bitte helft mir!!!

[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;

[Jan.R]

Bei mir zeigt er dann eine Zugriffsverletzung an!!!

[toms]

Zitat von Jan.R:

Bei mir zeigt er dann eine Zugriffsverletzung an!!!

Hast du OnChange über den OI erzeugen lassen?

[mkinzler]

Besser
Label1.Color :=(Sender as TColorGrid).ForegroundColor;

[Jan.R]

Was für ein OI???

[toms]

Zitat von Jan.R:

Was für ein OI???

Einfach mal mit der Maus über das Wort OI fahren.

[mkinzler]

Wie oben

[Jan.R]

wie "wie oben"?

[DeddyH]

Klick