delphi - VirtualStringTree - 外部控件不传递 TDragObject

Question

当从控件拖动到 VirtualStringTree 时，如果该控件具有 TDragObject，则预计将其用作 OnDragDrop 和 OnDragOver 中的源，但它始终返回该组件。我相信这是一个错误，但是是否有其他方法可以在不破坏 TBaseVirtualTree 的情况下接收另一个控件的 TDragObject？

procedure TIntelligenceCentralFrame.vstDragOver(Sender: 
  TBaseVirtualTree; Source: TObject; Shift: TShiftState; State: TDragState; 
  Pt: TPoint; Mode: TDropMode; var Effect: Integer; var Accept: Boolean);

编辑:Minimal Example

Answer 1

这种行为是正确的。您已使用TDragControlObject作为拖动对象，这个对象应该将分配的控件传递给 OnDragOver和 OnDragDrop事件。引用文献将其描述为:

When TDragControlObject is used, the OnDragOver and OnDragDrop events receive the control being dragged as the Sender, instead of the drag object itself.

其中，Sender 是虚拟 TreeView 的 OnDragOver 和 OnDragDrop 事件的 Source 参数。解决方案很简单，使用不同的拖动对象。或者期望在使用 TDragControlObject 时您将获得分配的控制权拖动对象。