在运行时怎么把一个窗体拖放到另一个窗体里？

Question

在运行时，怎么把一个窗体拖放到另一个窗体里？
比如程序启动时创建两个窗体A、B，把B拖到A上面时，A可以接收B。接收的意思就是 B.Parent:=A，接收以后，B就成了A的子窗口了，拖动A的时候B可以跟着动等等。Toolbar和Panel什么的好像可以，但是窗体好像不行？我把B窗体放倒A窗体上的时候，不触发A窗体的OnDragOver事件~~~
高手给说下怎么弄？

Answer 1

在拖到消息里计算RECT,然后相应处理

Answer 2

设置窗体的HostDockSite属性就可以     Form1.pnl1.DockSite := True;
     Form1.pnl1.UseDockManager := True;     Form2.DragKind := dkDock;
     Form2.DragMode := dmAutomatic ;

Answer 3

Form2.HostDockSite := pnl1;