TTGDragOverEvent

type TTGDragOverEvent = procedure(

  Sender: TBaseTreeGrid;

  Source: TObject;

  Shift: TShiftState;

  State: TDragState;

  const Pt: TPoint;

  Mode: TDropMode;

  var Effect: LongWord;

  var Accept: Boolean

) of object;