Zitat von
IngoD7:
Zitat von
onlinekater:
Zitat von
Hansa:
Ne, Brush bezieht sich auf die Form.
???
Kann Dir hier nicht ganz folgen. Was meinst Du damit?
Mach dir nichts draus - er kann sich manchmal selbst nicht ganz folgen.
Wenn ihr Delphi nicht folgen könnt, dann kann ich auch nichts dafür.
So geht das :
Delphi-Quellcode:
procedure TfrmKey.lblMouseEnter(Sender: TObject);
var Rechteck : TRect;
begin
with Sender as TLabel do begin
Color := clSkyBlue;
Font.Color := clBlack;
end;
//showmessage ('KJHJK');
Canvas.Pen.Width := 12;
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;
Alles andere ist einfach zuviel und überflüssig.