Discussion :

[Lung]

Comment faire un Drag&Drop, à partir de mon application (un ListBox) vers Windows (Bureau ou explorateur) ?

J'ai trouvé comment faire l'inverse, mais dans ce sens, je ne vois pas comment faire.
Si quelqu'un a une idée ...
Merci.

[joebarthib]

Je crois qu'il faut regarder du côté de DoDragDrop (API Windows), mais je n'ai pas eu l'occasion de le faire, et impossible de faire une recherche sur le forum en ce moment !
Bonne chance

[Lung]

Je crois qu'il faut regarder du côté de DoDragDrop (API Windows)

Merci, je cherche dans cette direction.

impossible de faire une recherche sur le forum en ce moment !

C'est de plus en plus souvent !

[delphi-fan]

J'ai trouvé ce lien :
http://delphi.about.com/gi/dynamic/offsite.htm?site=http://atlas.csd.net/%7Ecgadd/knowbase/DELPHI0213.HTM

A+

[Lung]

Bin, c'est bien la même question que moi, mais la réponse ne porte que sur le drag&drop Windows-->Application.
Moi, c'est l'inverse que je cherche.
Merci quand même. Je continu de chercher ...

[delphi-fan]

Au fait, j'ai du mal à imaginer ce que peux donner un Drag'n Drop d'un Listbox vers le Bureau Windows.
Au pire, tu ferais une copie de fichier que tu mettrais directement sur le Desktop (au lieu de mettre un raccourci) je comprendrais.
Quand tu auras le temps, tu pourrais nous en expliquer l'utilité ?

A+ et bonne recherche...

[Lung]

Bin, dans ma ListBox, j'ai une liste de fichiers, affichée.
Ces fichiers sont stockés sur un serveur.
Je voudrais que quand l'utilisateur fait un drag-drop sur un des fichiers de la liste, ca copie le fichier là où il fait le drop : le bureau, un répertoire dans une fenêtre de l'explorateur, ...
Je ne peux pas savoir d'avance, dans quel répertoire copier le fichier. Donc, par la méthode du drag-drop, je pensais que se serais possible.
On m'a donné une piste, ici : http://www.phidels.com/php/forum/for...t&postid=15858

Mais, je ne trouve aucun exemple, ni explications ...

Je cherche toujours ...

[delphi-fan]

Par le ClipBoard, ça doit être plus facile.
Mais il n'est pas dit que ça marche dans tous les cas.
Maintenant que j'y pense, il me semble que j'ai déjà vu un sujet traitant de la copie (via le Clipboard) sur le Desktop : peut-être même sur le forum !?

A+

[Lung]

Je ne vois pas le rapport avec le presse-papier !?

Tu ne pourais pas m'en dire un peu plus ...

[delphi-fan]

Ce que je voulais dire, c'est que tu peux coller le nom des fichiers à copier dans le clipboard et les récupérer plus tard pour faire une simple copie de fichiers, sans drag'n drop.

Le code suivant peut sans doute expliciter cette idée :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 Get Filenames from Clipboard 
{
"If I use the windows Explorer to copy a file,
how can I use a paste function in my app?"
 
This code retrieves the filenames from the
clipboard to a memo component.
Drop a memo and a button on a form and set
the OnClick of a button to:
} 
 
uses 
  clipbrd, shellapi; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  f: THandle; 
  buffer: Array [0..MAX_PATH] of Char; 
  i, numFiles: Integer; 
begin 
  Clipboard.Open; 
  try 
    f:= Clipboard.GetAsHandle( CF_HDROP ); 
    If f <> 0 Then Begin 
      numFiles := DragQueryFile( f, $FFFFFFFF, nil, 0 ); 
      memo1.Clear; 
      for i:= 0 to numfiles - 1 do begin 
        buffer[0] := #0; 
        DragQueryFile( f, i, buffer, sizeof(buffer)); 
        memo1.lines.add( buffer ); 
      end; 
    end; 
  finally 
    Clipboard.close; 
  end; 
end;

A+

[Lung]

Hmm !

En attendant de trouver une solution (si j'en trouve une ), je vais utiliser une boîte de dialogue pour demander à l'utilisateur où il veut enregistrer ses fichiers. Et comme ca, je saurais où faire ma copie.

Mais, un Drag&drop aurait été mieux ... ! Je suis toujours preneur de toutes idées ...

[Lung]

Une nouvelle piste (qui rejoint les précédentes) :

La réponse Microsoft est ici : http://msdn.microsoft.com/library/de...g/transfer.asp

En gros il faut utiliser des objets COM et appeler une fonction ("DoDragDrop").

Après, le faire en Delphi, je sais pas...

[Pierre Castelain]

J'ai trouvé une série d'articles assez complète sur le sujet sur http://www.undu.com (chercher les articles intitulés "COM Interface-Based Drag and Drop").

[Lung]

Merci. Je regarde ...

[Lung]

Bin, c'est intéressant, mais je ne comprend pas tout.
Ce qui est dommage, c'est que tous les exemples de démo que j'ai testé pour comprendre, ont des violations d'accès parce qu'il manque des fichiers.
A quoi ca sert de donner des moitiés de projet ? :

[Lung]

Ca y est : il y a 4 super composants sur http://www.phidels.com qui ont l'air de marcher pas mal !

Voir : http://www.phidels.com/php/forum/for...t&postid=15858

[remixtech]

Fonctionne en WinXP et Win2000. Ne fonctionne pas actuellement en Win98 mais c'est par manque de temps. Si quelqu'un se penche sur la question, on est preneur.

[cpdump]

Regarde la: http://wideman-one.com/gw/tech/Delphi/dragdrop/