Rahmen um Label

[runger]

Hallo,
hier ein komplettes Beispiel.
Für den enstrechenden Labeltext musst du noch ein property einführen und den Text leer im paint
dadurch ersetzen. Hab ich mir hier erspart. Soll ja auch nur eine Demo sein, wie man soetwas macht.
Zu guterletzt kann das eine eigene Komponente werden.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tlabel_new=class (Tlabel)
    procedure paint;override;
  end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    t:tlabel_new;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure Tlabel_new.paint;
var r:trect;
begin
  inherited;
  r.Left:=1;
  r.Top:=1;
  r.Bottom:=height;
  r.Right:=width;
  Canvas.rectangle(r);
  Caption:='leer';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   t:=tlabel_new.Create(self);
   t.parent:=self;
end;


end.

Gruss Rainer