Drag and drop d'une structure avec virtualtreeview

Personnellement, j'utilise l'unité VirtualDataObject et sa structure HDrop. Ca donne un code comme ceci, par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TBackupForm.DirectoriesTreeDragDrop(Sender: TBaseVirtualTree;
  Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
  Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
  HDrop: THDrop;
  i: Integer;
begin
  HDrop := THDrop.Create;
  try
    if HDrop.LoadFromDataObject(DataObject) then
      for i := 0 to HDrop.FileCount - 1 do
       begin
          //Faire quelque chose avec  HDrop.FileName(i))
        end;
  finally
    HDrop.Free;
  end;
end;

Moi c'est de Windows vers le treeview, mais ce genre de code peut peut être être adapté pour fonctionner de treeview à treeview...