unit TestPanel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TTestPanel = class(TPanel)
  private
    { Private-Deklarationen }
    ChildPanel : TPanel;
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor destroy; override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

constructor TTestPanel.Create(AOwner: TComponent);
begin
  inherited create(AOwner);
  width := 400;
  Height := 200;
  ChildPanel := TPanel.create(self);
  ChildPanel.Parent := self;
  ChildPanel.left := 5;
  ChildPanel.Top:=5;
  ChildPanel.Width := 190;
  ChildPanel.Height := 190;
  ChildPanel.Caption := 'Childpanel looses its controls';
end;

destructor TTestPanel.destroy;
begin
  ChildPanel.Free;
  inherited;
end;

procedure Register;
begin
  RegisterComponents('TestPanel', [TTestPanel]);
end;

end.