Also :
Zitat von
smudo:
TPanel und Color funktioniert m.E. nicht. Hast du schon mal probiert, einem Panel im
OI eine andere Farbe zuzuweisen? Da passiert glaube ich rein gar nichts.
OI interessiert nicht. Du hast den as / is Kram vergessen. Woher soll denn Delphi wissen, was es konkret nutzen soll ?
Das steht zur Runtime zwar fest, aber nicht schon beim Design.
Zitat von
Hawkeye219:
Hansa, ich kann in deinem Code-Fragment keine Stelle entdecken, an der du ein Panel färbst.
Wie wärs hiermit :
Zitat von
Hansa:
[delphi]
procedure Tfrm.LabelMouseEnter(Sender: TObject);
...
if (Sender is TLabel) then begin
Canvas.Brush.Color := clSkyBlue;
Canvas.FillRect (Rect ((Sender as TLabel).Parent.Left-5,
(Sender as TLabel).Parent.Top-5,
(Sender as TLabel).Parent.Left+5 + (Sender as TLabel).Parent.Width+1,
(Sender as TLabel).Parent.Top+5 + (Sender as TLabel).Parent.Height+1));
[delphi]
Geht zwar wegen Quereffekten so anscheinend nicht, aber "(Sender as TLabel)" sind definitiv die Panele. Das hier allerdings sieht gut aus :
Zitat von
WordsBG:
[pre]((Sender as TLabel).Parent as TPanel).Color := clSkyBlue;[/pre]
Bei mir geht das.
Noch mehr "aASen".
Mein Gespür sagt intuitiv, das könnte tatsächlich der Trick sein. Jo, Beitragsanzahl hat schon was zu sagen.
Edit : Tags verbessert.
Edit 2 : geht nicht.