Ich Idiot habe ja auch in der showmessage Height anzeigen lassen.
Klar, dass das immer gleich blieb.
Delphi-Quellcode:
procedure TfrmKey.lblMouseEnter(Sender: TObject);
begin
with Sender as TLabel do begin
Color := clSkyBlue;
Font.Color := clNavy;
end;
showmessage (IntToStr ((Sender as TLabel).Top));
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clBlue;
Canvas.Rectangle(Left-1, Top-1,Left + Width+1, Top + Height+1);
end;
Jetzt wird da was gezeichnet, aber an völlig falscher Stelle irgendwo in rechter Form-Ecke. Brauche das Rechteck aber um das Label in Abhängigkeit von dessen Koordinaten. Hat jemand vielleicht noch fertigen Code ?
wg. roter Kasten : das ist so ähnlich. Bin aber hingegangen und habe den Code lieber aus dem with rausverlagert. Ergebnis : siehe oben.