VirtualTree - Changing a parameter in a procedure

[Stano 146]

//Original function
procedure xyDragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: IDataObject;
  Formats: TFormatArray; Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);

//Now
procedure xyDragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: TVTDragDataObject;
  Formats: TFormatArray; Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);

See the last word in the first line. IDataObject -> [/color]TVTDragDataObject.

[Anders Melander 2117]

Was there a question you wanted to ask?

[Remy Lebeau 1660]

Sounds like you upgraded an existing project to use a newer version of TVirtualTree, where that event has changed signature. You would need to update your existing event handler accordingly.