Как свой компонент, состоящий из других компонентов, сделать контейнером

[alexey.barkalov]

Разрабатываю свой компонент, который состоит из панелей.
В прикрепленном рисунке постарался отобразить суть.

Как сделать так, чтобы при размещении компонента на мой компонент он размещался только на Panel2 (так которая белая по цвету) и верно отображался в окне Structure в BDS, в dfm-файле удалось переопределив GetChildren. Привожу код, отражающий суть моего рабочего кода.

TCustomControl1 = class(TPanel)
  private
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
  protected
    function GetChildren(Proc: TGetChildProc; Root: TComponent);
    
  public
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Samples', [TCustomControl1]);
end;
 
procedure
  TCustomControl1.GetChildren(Proc: TGetChildProc; Root: TComponent);
var
  i: integer;
begin

  inherited GetChildren(Proc, Root);
  for I := 0 to Panel2.ControlCount - 1 do
    Proc(Panel2.Controls[i]);
    
end;
 
constructor TCustomControl1.Create(AOwner: TComponent);
begin
  inherited;
  Panel1 := TCustomControl.Create(self);
  Panel1.Align := alTop;
  Panel1.Height := 20;
  Panel1.Parent := self;
 
  Panel2 := TCustomControl.Create(self);
  Panel2.Align := alClient;
  Panel2.Parent := self;
  Panel2.ControlStyle := Panel2.ControlStyle + [csAcceptsControls];
 
  Panel3 := TCustomControl.Create(self);
  Panel3.Align := alBottom;
  Panel3.Height := 20;
  Panel3.Parent := self;
end;

[DenNik2006]

а так не пробовал?
Panel1.ControlStyle := Panel1.ControlStyle - [csAcceptsControls];
Panel3.ControlStyle := Panel3.ControlStyle - [csAcceptsControls];

[DenNik2006]

вот, наваял. при попытке установить компонент на верхнюю или нижнюю панель он присваивается форме. работает и без GetChildren. кстати, что делает эта процедура?

unit MyPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls;

type
  TMyPanel = class(TPanel)
  private
    FPanelTop: TPanel;
    FPanelMain: TPanel;
    FPanelBottom: TPanel;
  protected
    //procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyPanel]);
end;

{ TMyPanel }

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FPanelTop:= TPanel.Create(Self);
  FPanelTop.Parent:= Self;
  FPanelTop.Align:= alTop;
  FPanelTop.Height:= 20;
  FPanelTop.ControlStyle:= FPanelTop.ControlStyle - [csAcceptsControls];

  FPanelBottom:= TPanel.Create(Self);
  FPanelBottom.Parent:= Self;
  FPanelBottom.Align:= alBottom;
  FPanelBottom.Height:= 20;
  FPanelBottom.ControlStyle:= FPanelBottom.ControlStyle - [csAcceptsControls];

  FPanelMain:= TPanel.Create(Self);
  FPanelMain.Parent:= Self;
  FPanelMain.Align:= alClient;

  ControlStyle:= ControlStyle - [csAcceptsControls];
end;

destructor TMyPanel.Destroy;
begin
  FPanelTop.Free;
  FPanelMain.Free;
  FPanelBottom.Free;
  inherited Destroy;
end;
{
procedure TMyPanel.GetChildren(Proc: TGetChildProc; Root: TComponent);
var
  i: integer;
begin
  inherited GetChildren(Proc,Root);
  for I := 0 to FPanelMain.ControlCount - 1 do
    Proc(FPanelMain.Controls[i]);
end;
}
end.

кстати, TMyPanel можно наследовать и не от TPanel, а например от TWinControl

[DelphiLexx]

[QUOTE=DenNik2006;866245]вот, наваял. при попытке установить компонент на верхнюю или нижнюю панель он присваивается форме. работает и без GetChildren. кстати, что делает эта процедура?
у меня в окне Structure Delphi, внешний компонент размещается не в моем компоненте, а в корне

[DenNik2006]

мой код работает?