如何在两个DBGrid控件间实现拖拽

[ktcserver]

我在编写程序的时候想实现在两个不同的DBGrid控件间对某条记录进行拖拽。
我实验了两种不同的方法，但都不行。
1、如果我把DragMode属性设置为dmAutomatic那么在鼠标点击某个记录的时候， 数据指针将无法指向相应的记录。而直接进入了拖拽状态。
2、如果我把DragMode属性设置为dmManual,在DBGrid的OnMouseDown中加入触发BeginDrag的处理。在点击某个记录的时候，并不会触发OnMouseDown事件。
我现在看了许多书，书上基本上都是这两种方法。有什么办法才能实现既能点击到DBGrid中的某条记录又能触发BeginDrag事件呢？

[ktcserver]

真的很希望有人能够回答!,我加分

[zzhong2]

关注

[bpaibgy]

源Grid的OnMouseDown事件：
if(Button==mbLeft)
(( 源gridname*)(Sender))->BeginDrag(False,-1);

目的Grid的OnDragOver事件：
if(Source->ClassNameIs(" 源gridname"))
Accept=True;
目的Grid的OnDragDrop事件：
复制记录的语句；

[watercelery]

(( 源gridname*)(Sender))->BeginDrag(False,-1);
编译不通过

[ktcserver]

怎么没有人回答啊!~
难道没有人知道吗?
5555~~~~~~~~

[whp320]

肯宁能.我帮你定顶]

[ktcserver]

关键是无法响应OnMouseDown事件啊！！！