Comment faire un Drag&Drop vers Windows ?

**Lung** · 19/12/2002, 14h45

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** · 19/12/2002, 14h59

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** · 19/12/2002, 15h01

Envoyé par joebarthib

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

Merci, je cherche dans cette direction.

Envoyé par joebarthib

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

C'est de plus en plus souvent !

**delphi-fan** · 19/12/2002, 15h10

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

A+

**Lung** · 19/12/2002, 15h43

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** · 19/12/2002, 15h57

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** · 19/12/2002, 16h11

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** · 19/12/2002, 16h44

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** · 19/12/2002, 16h48

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

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

**delphi-fan** · 19/12/2002, 17h07

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** · 19/12/2002, 17h19

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** · 19/12/2002, 17h26

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

Envoyé par gatorette

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** · 19/12/2002, 19h49

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** · 20/12/2002, 09h17

Merci. Je regarde ...

**Lung** · 20/12/2002, 13h36

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** · 13/01/2003, 11h41

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** · 21/06/2004, 12h07

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** · 21/06/2004, 13h10

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

Comment faire un Drag&Drop vers Windows ?

Composants VCL Delphi

Discussions similaires

Partager

Partager