一个关于Docking的问题，欢迎指教

Question

我想做一个类似于DELPHI　IDE的管理系统，但在处理Dock时，当我移动主窗体内的Panel时，第一次可以成功Dock，但第二次不能Dock，Panel变成一个Float Window，请位各位能否使Panel不出现Float Window,好像Delphi IDE一样，将鼠标固定在控件的容器内，并且能够成功Docking

Answer 1

1，在一个Form1中，放入Panel1：
属性： 
　　Align：alleft； 
　　Docksite：true； 
　　UseDockManager：true； 2，添加一个新的窗体Form2，上面可以随便放些什么控件
属性：
    anchors：[aktop，akbottom，akleft，akright]； 
　　dragmode：dmautomatic； 
　　dragkind：dkdock3，在Form1中包含Form2的声名
uses Unit2;3,在窗体Form1上放置一个Button1，用于调出Form2窗体
设置Button1的OnClick事件，对应的代码如下： 
　　procedure TForm1.Button1Click(Sender: TObject); 
　　begin 
　　  form2.Show; 
　　end;