DragKind如何窗体停靠?

Question

我看了这个例子,结果还是不行，到底，是怎么实现停靠呀？
1，在一个Form1中，放入Panel1：   
  属性：     
  　　Align：alleft；     
  　　Docksite：true；     
  　　UseDockManager：true；     
    
  2，添加一个新的窗体Form2，上面可以随便放些什么控件   
  属性：   
          anchors：[aktop，akbottom，akleft，akright]；     
  　　dragmode：dmautomatic；     
  　　dragkind：dkdock   
    
  3，在Form1中包含Form2的声名   
  uses   Unit2;   
    
  3,在窗体Form1上放置一个Button1，用于调出Form2窗体   
  设置Button1的OnClick事件，对应的代码如下：     
  　　procedure   TForm1.Button1Click(Sender:   TObject);     
  　　begin     
  　　     form2.Show;     
  　　end;     

Answer 1

JVCL/CNVCL 两个免费控件包都有实现例子