Source position: virtualtrees.pas line 1796
type TVTCreateDragManagerEvent = procedure(
Sender: TBaseVirtualTree;
out DragManager: IVTDragManager
) of object;