Discussion :

[laudur]

Bonjour à tous,

Mon problème concerne le bon fonctionnement du copier-coller (drag and drop) d'une structure complete d'un composant virtualtreeview vers un autre virtualtreeview.

La structure complete est:
-nom du fichier
-taille du fichier
-chemin complet du fichier

bref en gros c'est un glisser-déplacer classique entre deux arborescences sous windows. On a regardé le code des méthodes OLE et VCL mais on arrive à seulement récupérer le nom du fichier (permier élément de la structure) et pas la taille et le chemin (c'est le chemin qui nous interesse le plus de drag&droper)

S'il y a des maîtres en drag&drop ou sur virtualtreeview et bien merci de votre aide

[Reisubar]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...