Discussion :

[numeror]

Bonjour , j'essaie de développez une gestion du message VM_DROPFILES de Windows pour me permettre de faire un glisser/déposer de fichier sur la fiche principale donc j'ai suivi le code issue de la FAQ et celle du dropfiles du synedit pour personnaliser la mienne. Mais Windows me mes comme icone l'interdiction donc je peut glisser mais pas déposer. Même en mettant le code le la FAQ , ca ne marche pas.

J'ai vu sur internet que le fait d'être sous win7 pouvait posé des problèmes. j'ai donc chercher du coté de ChangeWindowMessageFilterEx mais je n'est rien trouver pour m'aider a la mettre en place!

Auriez vous un cours sur ce type de procédure ou du code pure même si je préfère un cours?

Merci et bon week-end

[Paul TOTH]

ça ne fonctionne pas avec ceci ?

[numeror]

Bonjour

J'ai essayé ton unité en faisant l'exemple , ca marche une fois et avec un seul fichier mais des que je code la même chose dans mon app , ca ne marche pas j'ai toujours l'icone d'interdiction sous le curseur.

[numeror]

Re

J'ai été voir la démo du richedit livré avec Delphi , il y a une utilisation de la gestion de VM_DROPFILES de base , quand je compile la démo ca fonctionne mais des que je code mot pour mot dans mon projet , ca ne fonctionne pas.

Est ce qu'il y a des chose a faire dans l'application même?

[numeror]

Re

J'ai réussi a dépanner mon code , j'ai juste enlevé le nom de ma fiche pour le handle , j'avais ca avant :

Code :

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

DragAcceptFiles(MainForm.Handle, True);

remplacer par ca :

Code :

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

DragAcceptFiles(Handle, True);

Et ca fonctionne , mais je ne comprend pas ce que ca change!

[Paul TOTH]

Re

J'ai réussi a dépanner mon code , j'ai juste enlevé le nom de ma fiche pour le handle , j'avais ca avant :

Code :

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

DragAcceptFiles(MainForm.Handle, True);

remplacer par ca :

Code :

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

DragAcceptFiles(Handle, True);

Et ca fonctionne , mais je ne comprend pas ce que ca change!

où est placé ce code ?

MainForm.Handle est une notation a proscrire, elle fait référence à une variable globale qui pointe sur une instance donnée de TMainForm ... bon là y'a des chances qu'elle soit unique dans le projet, mais peu importe, une méthode ne doit pas faire référence à ses membres via une variable globale, soit tu ne préfixes pas, soit si tu veux par exemple la completion de code tu utilises "Self".

[numeror]

Bonjour

J'avais au début mis le code dans l'évènement OnCreate de mainform puis je l'ai mis dans OnShow et la ca a fonctionner.