Ne, Brush bezieht sich auf die Form. Das hier liefert etwas wie im Anhang. Aber nur, solange die showmessage da ist.
Delphi-Quellcode:
procedure TfrmKey.lblMouseEnter(Sender: TObject);
begin
with Sender as TLabel do begin
Color := clSkyBlue;
Font.Color := clNavy;
end;
showmessage ('KJHJK');
Canvas.Pen.Width := 2;
Canvas.Pen.Color :=clBlue;
Canvas.Rectangle ((Sender as TLabel).Left,(Sender as TLabel).Top,
(Sender as TLabel).Left + (Sender as TLabel).Width,
(Sender as TLabel).Top+(Sender as TLabel).Height);
end;
Wichtig wäre jetzt erstmal zu wissen, wie das showmessage wegzubekommen ist. Das ist lästig und es könnte Quereffekte hervorrufen.