Rahmen um Label

[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.