Rahmen um Label

[I.A]

Zitat:

Zitat von Hansa

Zitat:

Zitat von IngoD7

Zitat:

Zitat von onlinekater

Zitat:

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. :tongue:

Wenn ihr Delphi nicht folgen könnt, dann kann ich auch nichts dafür. :mrgreen: 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;.