1>．TControl. TBDockHeight　　　  　// 停靠控件在停靠时的的高度；

　　2>．TControl. LRDockWidth　　　  　 // 停靠控件在停靠时的的宽度；

　　3>．TControl. UnDockHeight　　　  　// 停靠控件在浮动时的的高度；

　　4>．TControl. UnDockWidth　　　  　 // 停靠控件在浮动时的的宽度；

　　5>．TControl. HostDockSite　　　  　// 被停靠控件的实例；

　　6>．TControl. FloatingDockSiteClass　// 为停靠控件在浮动时创建容器(自动装载)；

　　7>．TControl. Floating　　　　　　　// 是否浮动

　　9>．TControl. DockOrientation　　　 // 停靠控件的方位

　　10>．TWinControl .DockClientCount　 // 被停靠控件里面有几个已经停靠的控件

　　11>．TWinControl . DockClients　　　// 被停靠控件里面有已经停靠的控件的列表

　　12>．TWinControl . DockManager　  　// 一个控制停靠的类，其实是一个ActiveX控件，和它对应的类是TDockTree.

　　13>. TWinControl .UseDockManager  　// 是否使用DockManager。

OnDockOver(Sender: TObject; Source: TDragDockObject;X, Y: Integer; State: TDragState; var Accept: Boolean);

OnDockDrop(Sender: TObject; Source: TDragDockObject;X, Y: Integer);

OnGetSiteInfo(Sender: TObject; DockClient: TControl; var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);

OnStartDock(Sender: TObject; var DragObject: TDragDockObject);// 经常会被触发

OnEndDock(Sender, Target: TObject; X, Y: Integer);// 经常会被触发

OnUnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean);//停靠窗体变成浮动时触发

procedure TMainForm.LeftDockPanelDockOver(Sender: TObject;

Source: TDragDockObject; X, Y: Integer; State: TDragState;
　var Accept: Boolean);
var
　ARect: TRect;
begin
　Accept := Source.Control is TDockableForm;
　if Accept then
　begin
    //修改预览停靠位置
    ARect.TopLeft := LeftDockPanel.ClientToScreen(Point(0, 0));
　　ARect.BottomRight := LeftDockPanel.ClientToScreen(
　　　Point(Self.ClientWidth div 3, LeftDockPanel.Height));
　　Source.DockRect := ARect;
　end;
end;

procedure TMainForm.LeftDockPanelDockDrop(Sender: TObject; Source: TDragDockObject; X, Y: Integer);
Begin
　LeftDockPanel.Width := ClientWidth div 3;
　LeftSplitter.Left := LeftDockPanel.Width + LeftSplitter.Width;
End;

procedure TDockableForm.FormClose(Sender: TObject;
　var Action: TCloseAction);
begin
　MainForm.LeftDockPanel.Width := 0;
　Action := caHide;
end;

TCMDockClient = packed record
　　Msg: Cardinal;
　　DockSource: TDragDockObject;
　　MousePos: TSmallPoint;
　　Result: Integer;
　end;

procedure TWinControl.DockDrop(Source: TDragDockObject; X, Y: Integer);
begin
　if (Perform(CM_DOCKCLIENT, Integer(Source), Integer(SmallPoint(X, Y))) >= 0)
　　and Assigned(FOnDockDrop) then
　　FOnDockDrop(Self, Source, X, Y);
end;

function ManualDock(NewDockSite: TWinControl; DropControl: TControl = nil; ControlSide: TAlign = alNone): Boolean;

procedure CMDockClient(var Message: TCMDockClient); message CM_DOCKCLIENT;
end;

procedure TDockableForm.CMDockClient(var Message: TCMDockClient);
var
　Host: TForm;
begin
　if Message.DockSource.Control is TDockableForm then
　begin
    Host := TTiledHost.Create(Application);// 创建一个窗体实例
　　Host.BoundsRect := Self.BoundsRect;// 获取组件所有角的像素位置，设置宿主窗体大小
　　// 完成窗体的相互停靠

　　Self.ManualDock(Host, nil, alNone); // 把自己停靠到TTiledHost
　　Self.DockSite := False;// 不允许其他控件停靠在自己上面
    // 把Message.DockSource.Control也停靠到TTiledHost,完成窗体的相互停靠

Message.DockSource.Control.ManualDock(Host, nil, alNone);
　　TDockableForm(Message.DockSource.Control).DockSite := False;
　　

Host.Visible := True;//必须添加，不然窗体全部消失不见

　end;
end;

procedure TDockableForm.FormDockOver(Sender: TObject;
　Source: TDragDockObject; X, Y: Integer; State: TDragState;
　var Accept: Boolean);
var
　ARect: TRect;
begin
　Accept := Source.Control is TDockableForm;
　if Accept then
　begin
　　ARect.TopLeft := ClientToScreen(Point(0, 0));
　　ARect.BottomRight := ClientToScreen(
　　　Point(ClientWidth div 2, ClientHeight));
　　Source.DockRect := ARect;
　end;
end;

Var i: integer;

procedure TDockableForm.btn1Click(Sender: TObject);

var

  AForm: TDockableForm;

begin

  AForm := TDockableForm.Create(Application);

  AForm.Caption := 'AForm' + IntToStr(i);

  Inc(i);

  AForm.Show;

end;