Zitat von
Hansa:
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.
Was ich hier sehe, ist das Canvas zu TForm respektive TfrmKey gehört. Der Rahmen soll aber um das Label gezeichnet werden. So wie ich Deplhi und die
VCL bisher verstanden habe müsste doch aber Canvas von TLabel benutzt werden um dort den Rahmen zu zeichnen. Somit dürfte @Hansa Recht haben. Demzufolge gehören die Canvas.xxx Anweisungen zwischen with Sender as TLabel do begin ... end;.