source: DockManagement/Demo/UMainForm.pas

unit UMainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UDockForm, Vcl.Menus, UDockManagement, Generics.Collections;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    Newform1: TMenuItem;
    procedure Newform1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    RegistryKey: string;
    function NewDockForm: TDockForm;
  public
    Forms: TObjectList<TForm>;
    FormCounter: Integer;
    BaseDockPanel: TDBaseDockPanel;
    CustomDockManager: TDDockManager;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //CustomDockManager.SaveToRegistry;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Forms := TObjectList<TForm>.Create;
  CustomDockManager := TDDockManager.Create(Self);
  CustomDockManager.RegistryKey := RegistryKey;
  BaseDockPanel := TDBaseDockPanel.Create(Self);
  with BaseDockPanel do begin
    Parent := Self;
    Align := alClient;
    Visible := True;
    BevelOuter := bvNone;
  end;
  CustomDockManager.BaseDockPanel := BaseDockPanel;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  BaseDockPanel.Free;
  CustomDockManager.Free;
  Forms.Free;
end;

procedure TMainForm.FormShow(Sender: TObject);
var
  I: Integer;
begin
 // Init dock init list
  with CustomDockManager do begin
    with BaseDockPanel do begin
      PanelLeft.Tag := 150;
      PanelTop.Tag := 150;
      PanelRight.Tag := 100;
      PanelBottom.Tag := 150;
    end;
  end;
  //CustomDockManager.LoadFromRegistry
  for I := 0 to 5 do begin
    Forms.Add(NewDockForm);
  end;
end;

function TMainForm.NewDockForm: TDockForm;
begin
  Inc(FormCounter);
  Result := TDockForm.Create(MainForm);
  Result.Memo1.Text := 'Form ' + IntToStr(FormCounter);
  Result.Memo1.Align := alClient;
  Result.Caption := 'Form ' + IntToStr(FormCounter);
  Result.Show;
  CustomDockManager.RegisterDockForm(Result, 200, 200, Result.Name, True);
end;

procedure TMainForm.Newform1Click(Sender: TObject);
begin
  Forms.Add(NewDockForm);
end;

end.