VCL中DragDrop功能的底层实现.docxVIP

VCL 中 DragDrop 功能的底层实现 前段时间在论坛里看了一篇关于剖析 VCL 结构的文件，其中不少高手的开怀畅谈让小辈们心里感觉非常的痛快！看完余又觉得不能光看，也该将自己的心得拿出来与大家分享， 于是就边夜翻看 VCL 源码，终于将 VCL 如何实现 DragDrop 功能的过程弄个“基本明白”，其中可能会有不当之处，再加上小弟的文学水平也只是初中毕业，有些地方也许会表达不当，但其意思也基本上八九不离十了，故也请大家开怀畅言、批评指正，都是为了进步嘛！哈哈 …… 虽然 DragDock 操作与 DragDrop 操作是密切相关，并且很大一部分操作是相同的，但本文暂且不讨论与 DragDock 有关的部分，留待下回分解或也给大家表现表现 ……………… 一、与 DragDrop 操作相关的属性、事件、函数 VCL 的 DragDrop 功能是在 TControl 类中现的，因此所有从 TControl 类派生出来的控件类者继承了这些属性、事件和函数，包括： 属性：DragCursor: Drag 时的鼠标类型：（TCursor ）; DragKind: Drag 的类型：(dkDrag, dkDock); DragMode: Drag 的方式：手动(dmManual ）或自动（ dmAutom atic); 事 件 ：OnStartDrag：Drag 开 始 事 件 ； O