Delphi树拖拽问题

[qq_15112959]

情况是这样的：窗口左边是一个frame，里面有一颗树，树是部门树，里面是各个部门，右边也有一个frame，里面放的是人，我点击部门，然后右边就出现这个部门人的相关信息，现在我想改变这个人的部门，通过鼠标拖拽到左边我想要的部门去，现在问题就是这个过程怎么实现，其中右边人员的信息是一个CXgird，请给出所有的代码和解释。如图片所示，这个张八是职业病科，我想拖拽到组织人事那里。

[haitao]

拖拽的起点、释放点、途经 都有相应的事件，程序可以得知对应的是哪个控件。。。。

[阿狸Ahri]

参考 http://blog.csdn.net/youthon/article/details/6671679

[不得闲]

要拖拽的树位置，Grid.BeginDrag,然后接收拖拽的位置，OnDragDrop中写接收内容，OnDragOver写是否接受