TVTDragDropEvent

type TVTDragDropEvent = procedure(

  Sender: TBaseVirtualTree;

  Source: TObject;

  DataObject: IDataObject;

  Formats: TFormatArray;

  Shift: TShiftState;

  const Pt: TPoint;

  var Effect: LongWord;

  Mode: TDropMode

) of object;