Canvas der Form ?
Habe jetzt mal folgendes gemacht :
Delphi-Quellcode:
procedure TfrmKey.lblMouseEnter(Sender: TObject);
begin
with Sender as TLabel do begin
Color := clSkyBlue;
Font.Color := clNavy;
showmessage (IntToStr (Height));
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clBlue;
Canvas.Rectangle(Left-1, Top-1,Left + Width+1, Top + Height+1);
end;
end;
Die showmessage zeigt immer 20 an, also relativ wenig. Die Labels sind auf einer Form verteilt und sollen eine andere Farbe und auch einen Rahmen erhalten, sofern sich der Mauszeiger darüber befindet. Die Farben gehen so, der Rahmen noch nicht.