TVTDragOverEvent

type TVTDragOverEvent = procedure(

  Sender: TBaseVirtualTree;

  Source: TObject;

  Shift: TShiftState;

  State: TDragState;

  const Pt: TPoint;

  Mode: TDropMode;

  var Effect: LongWord;

  var Accept: Boolean

) of object;