Drag and drop "de l'extérieur"

J'ai déjà pas mal utilisé les drag and drop entre les différents composants d'une fiche. 8)

Je voulais récupérer, dans mon code, le nom d'un fichier que l'on glisse de l'explorateur windows dans mon appli et dans l'évènement OnDragOver de mon composant (TTreeView), je ne vois rien arriver. Le curseur de la souris reste en "panneau interdiction". :(
Et pourtant ça fonctionne même dans le bloc-notes... :cry:


Quelqu'un a une solution ? 8O

Bonjour,

Est ce que les propriétés DragKind et DragMode sont correctements positionnées ?

DragMode vaut dmAutomatic
DragKind vaut dkDrag

Vous pouvez facilement faire l'essai, il suffit de créer une fiche.
Exécuter.
Ouvrir l'explorateur, glisser un fichier sur la fiche...

Le curseur reste à "Panneau interdiction" :cry:

On doit pouvoir le faire en récupérant les messages windows, mais lesquels ? :?:

Salut,
Met ca dans le oncreate de la form qui recoit le drag
DragAcceptFiles(Handle, true);

Ciao

Bonjour,

Regarde l'evenement OnDragOver et positionne Accept à true.
Ensuite tu géres le OnDragDrop pour recevoir les informations glissée.

C'est ce que j'ai fait :

void __fastcall TForm1::FormDragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
Accept = true; // (1)
}

Le curseur de la souris reste en "interdit".
Et si on met un point d'arrêt sur la ligne (1), on n'y passe jamais...

Essayez, vous verrez...

Pas de solutions ? :?

Citation:

---

Envoyé par Kaji

Pas de solutions ? :?

---

Non désolé, j'ai essayé aussi et effectivement ca ne marche pas.
Si je trouve quelque chose je ferai un post.

bon courage,

McFoggy

Ca y est j'ai trouvé.

Il faut intercepter un message Windows particulier : WM_DROPFILES.

J'ai fait un petit exemple :

Voila la définition de ma Form de test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

class TForm1 : public TForm { __published: // Composants gérés par l'EDI private: // Déclarations utilisateur public: // Déclarations utilisateur __fastcall TForm1(TComponent* Owner);   BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DROPFILES, TMessage, WMDropFiles); END_MESSAGE_MAP(TForm)   virtual void __fastcall WMDropFiles(TMessage &Message); };

---

Voila son implémentation

Code:

---

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

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { DragAcceptFiles(Handle,true); }   void __fastcall TForm1::WMDropFiles(TMessage &Message) { HANDLE hd; int nbFiles; char fileName[MAXPATH];   // Récup du handle de Drag and Drop hd = (HANDLE)Message.WParam; // Récup du nbre de fichiers droppés nbFiles = DragQueryFile(hd, 0xFFFFFFFF, fileName, MAXPATH - 1);   for (int i = 0; i < nbFiles; i++) { // Pour chaque fichier droppé, on récup son nom DragQueryFile(hd, i, fileName, MAXPATH - 1); // et on l'affiche ShowMessage(AnsiString("Le fichier : ") + AnsiString(fileName) + AnsiString(" a été draggé.")); }   // On dit au système de libérer la mémoire utilisée // pour la gestion du drag and drop DragFinish(hd); }

---

Bon courage pr la suite ...

McFoggy

Bonjour,

Voila la solution à ton probleme.
J'ai une fiche (TForm1) et un memo (TMemo1).
Voila ce que tu dois faire.

Dans l'entete d'unité, ajoutes :

Code:

---

1 2	#include <ShellAPI.hpp>

---

tu déclares ensuite une MESSAGE_MAP qui prendra en compte le message WM_DROPFILES :

Code:

---

1 2 3 4 5

protected: BEGIN_MESSAGE_MAP VCL_MESSAGE_HANDLER(WM_DROPFILES, TMessage, HandleWMDropFiles) END_MESSAGE_MAP(TForm)

---

tu déclares la fonction qui va faire le boulot :

Code:

---

1 2 3

private: // Déclarations utilisateur void __fastcall HandleWMDropFiles(TMessage &Message);

---

Dans le source du programme :

Code:

---

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

void __fastcall TForm1::HandleWMDropFiles(TMessage &Message) { // un buffer pour les noms de fichier char *pstrBuffer = new char[MAX_PATH];   // la structure du message HDROP hDrop = (HDROP) Message.WParam;   // récupere le nombre de fichier int iCount = DragQueryFile(hDrop, 0xffffffff, NULL, 0);   // efface les messages Memo1->Lines->Clear();   // récupérer les fichiers for (int iIndex = 0; iIndex < iCount; iIndex++) { DragQueryFile(hDrop, iIndex, pstrBuffer, sizeof(char) * MAX_PATH);   // ajouter, ici remplacer par TreeView->AddItem ou autre Memo1->Lines->Add(pstrBuffer); }   // détruire le buffer delete [] pstrBuffer; }

---

Dans le formcreate (ou le constructeur comme tu veux), tu ajoutes :

Code:

---

1 2	DragAcceptFiles(Handle, true);

---

et c'est tout :)
Tu dois remplacer l'ajout de la ligne au memo par la gestion de la TreeView.
Tu devras aussi gérer le fait qu'un utilisateur glisse un répertoire si tu veux aller chercher ce qui à dedans (algo récursif).

Bon courage.

Merci , vous êtes super cools !!! :D

Bonjour,

Je cherche une méthode pour faire l'opération dans l'autre sens, mais je n'ai pas trouvé de solution (drag n drop de l'application vers un dossier de Windows).

Existe-t'il une solution à partir de la méthode OnDragOver ? (avec l'objet Source)

Code:

---

1 2 3 4 5 6 7 8 9

void __fastcall TTestFrm::OnDragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { if (Source == TestListView) Accept = true; else Accept = false; }

---

Bonjour,

En cherchant la manière de faire glisser des documents du bureau vers mon application (sous Builder C++ XE7), j'ai trouvé la discussion ci-dessous et appliqué les procédures.

Sur différentes configurations testées :

- Fonctionnement OK sur un poste fixe de 2018, sous Windows 10
- Non fonctionnement sur mon portable de développement de 2016, sous Windows 10 avec Builder C++ XE7 installé.
- Non fonctionnement sur une machine plus ancienne (Imac avec un système Windows 10 sous Bootcamp qui était auparavant en Windows 7)

Sur les postes qui ne fonctionnent pas, on ne passe jamais dans les procédures HandleWMDropFiles ou WMDropFiles.

Le problème vient-il d'un paramètre système, car les m^mes procédures fonctionnent très bien d'un côté, et pas du tout de l'autre ?

Merci pour toute aide.