如何使用DragType dtOLE将节点从TVirtualStringTree拖放到VCL控件中？

上没有DragAcceptFiles属性TListBox。如果您要DragAcceptFiles()在TListBox.Handle窗口上调用Win32 API函数，则仅在以下情况下有效：

1. 您可以手动将TListBox.WindowProc属性子类化以处理WM_DROPFILES窗口消息。

2. TVirtualStringTree提供CF_HDROPOLE拖动过程中的格式。

但是2不是正确的。CF_HDROP仅用于拖动文件系统路径，而不能TVirtualStringTree拖动。所以DragAcceptFiles()用完了。

TVirtualStringTree（和其他TBaseVirtualTree后代）在OLE拖动期间使用自定义数据格式（VirtualTrees.pas单元的接口部分声明了这些格式ID，因此您无需在自己的代码中手动注册它们）：

• CF_VIRTUALTREE包含被拖动的选定树节点的IStream或HGLOBAL持有序列化形式。序列化由一系列描述每个节点的数据块组成。您将必须参考VirtualTree.pas单元的实现来解密这种格式（我在这里不打算这样做）。

• CF_VTREFERENCE包含一个HGLOBAL保存TVTReference记录（该记录也在该VirtualTrees.pas单元的接口部分中声明），该记录包含一个指向要TBaseVirtualTree拖动的实际对象的指针以及该树所属的进程的ID。

因此，为了使您能够将树节点拖放到上TListBox，您必须执行以下操作：

1. 编写一个实现该IDropTarget接口的类（或使用一个预先存在的实现，例如来自Anders Melander的Drag＆Drop套件的实现）。

2. 使用在TListBox.Handle窗口中注册该类RegisterDragDrop()。

3. 在您的IDropTarget实现中，您可以查询提供IDataObject的CF_VIRTUALTREE和CF_VTREFERENCE格式。如果成功，您的Drop()方法将有权访问被拖动的树节点数据，并可以TListBox根据需要将其复制到中。

假设您的TListBox存在与TVirtualStringTree被删除的过程相同，我建议您专注于just CF_VTREFERENCE，因为它是一种非常小而简单的格式（请参阅该TBaseVirtualTree.GetTreeFromDataObject()方法的实现），而解析CF_VIRTUALTREE数据将是过大的（请参见的实现）。该TBaseVirtualTree.ProcessOLEData()方法）时，你可以通过源枚举TVirtualStringTree，而不是直接。