TTGDragDropEvent

type TTGDragDropEvent = procedure(

  Sender: TBaseTreeGrid;

  Source: TObject;

  DataObject: IXDataObject;

  Formats: TFormatArray;

  Shift: TShiftState;

  const Pt: TPoint;

  var Effect: LongWord;

  Mode: TDropMode

) of object;