Hallo,
ich entwickle eine neue Komonente, die ich von TPanel ableite. Damit ich die Umrandung besser hinkriege, möchte ich eine TShape-Komponente nutzen. Diese wird während der create-Procedure erstellt.
Leider wird sie nicht angezeigt!
Die eingeschaften lassen sich im
OI bearbeiten, aber sehen kann ich den Rahmen nicht.
Was habe ich vergessen bzw. was ist da falsch ?
Der Source-Auszug:
type
TMyPanel = class(TPanel)
private
FBorder:TShape;
protected
{ Protected-Deklarationen }
procedure Notification(AComponent:TComponent; Operation:TOperation); override;
public
{ Public-Deklarationen }
Constructor Create(AOwner:TComponent); override;
destructor Destroy; override;
published
property Border: TShape read FBorder write FBorder;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Zusätzlich', [TMyPanel]);
end;
{ TMyPanel}
constructor TMyPanel.Create(AOwner: TComponent);
begin
inherited;
Color:={clWhite}$00FFFFFF;
Ctl3D:=False;
ParentCtl3D:=False;
BevelOuter:=bvNone;
BevelKind:=bkFlat;
BevelInner:=bvNone;
TabStop:=True;
Font.Size:=Size Div 2;
FBorder:=TShape.Create(Self);
FBorder.Top:=2;
FBorder.Left:=2;
FBorder.Width:=20;
FBorder.Height:=20;
FBorder.BringToFront;
end;
destructor TMyPanel.Destroy;
begin
FBorder.Free;
inherited;
end;
end.
Gruß Susi