TLabel und Mousedown

[Privateer3000]

Hiho allerseits
ich möchte per Mousedown ein Label einfärben.
Folgende Methoden klappen nicht da der Compiler meldet dass
"Color" nicht akzeptiert wird.
Meldung:

Code: Alles auswählen

1_hauptmenuclicks.txt(31,10) Error: identifier idents no member "Color"
 

Code: Alles auswählen

procedure THaupt.zbu_0MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // if Sender is TLabel then TComponent(Sender).Color :=$0080FF80;
  // FindComponent('zbu_'+IntToStr(Tcomponent(Sender).Tag)).Color:=$0080FF80;
  // Sender.Color:=$0080FF80;
end; 

Warum geht das nicht?

Grüße

[MAC]

Weil du zwar die "Color" von einem TLabel ändern willst, aber trotzdem Lazarus sagst, es soll die "Color" von "Tcomponent" ändern. Und ein "Tcomponent" hat im Gegensatz zu einem "TLabel" nunmal keine "Color"...
Also nimm einfach die erste Zeile und ersetze "Tcomponent" durch "TLabel". Und alles läuft Perfekt

[Privateer3000]

Yep
Danke
funktioniert das auch über Fincomponent
etwas wie: Findcomponent(Komponame) As TLabel