TBX Controls Create

[ecHo89]

Hi, ich will gerne ein DockablePanel erstellen (was klappt) und darauf ein AligmentPanel, worauf wieder eine ListBox ist.
Nur sehe ich nicht das AligmentPanel und die ListBox obwohl ich sie ausgerichtet habe. Was habe ich vergessen?

Delphi-Quellcode:

procedure TFormMain.TBXItem30Click(Sender: TObject);
begin
  if TBXItem30.Checked then
  begin
   TBXDockablePanel4.Destroy;
   TBXItem30.Checked := false;
  end
  else
  begin
   TBXDockablePanel := TTBXDockablePanel.Create(self);
   with TBXDockablePanel do
   begin
    inc(p);
    Name := 'TBXDockablePanel' // + inttostr(p); ? klappt mit beidem nicht
    Caption := ' Andere Applikationen';
    CurrentDock := TBXMultiDock7;
    CaptionRotation := dpcrAlwaysHorz;
   end;
   TBXAlignmentPanel := TTBXAlignmentPanel.Create(TBXDockablePanel);
   with TBXAlignmentPanel do
   begin
    Align := alClient;
    Margins.Bottom := 3;
    Margins.Left := 3;
    Margins.Right := 3;
    Margins.Top := 3;
   end;
   ListBox := TListBox.create(TBXAlignmentPanel);
   with ListBox do
   begin
    Align := alClient;
   end;
   TBXItem30.Checked := true;
  end;
end;

PS: Wenn sich jemand mit TBX auskennt:
Wie kann ich verhindern, dass mehrere DockablePanels sich in eine Zeile reihen? (D.h. mehrer Spalten dann bilden, bei mir irgendwie maximal 2, aber möchte maximal 1)

Danke!