Bonjour,

J'essaye de faire du drag and drop sur une zone répétée (fonctionne sur un autre projet) mais cela ne fonctionne pas. Premier problème, le curseur ne change pas en "déplacer"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
ZR_Pages..DndSource = dndProgrammé
ZR_Pages..DndCible = dndProgrammé
 
DnDEvénement( lproc_DND_Debut, ZR_Pages, dndDébutGlisser )
DnDEvénement( lproc_DND_Survol, ZR_Pages, dndSurvol )
DnDEvénement( lproc_DND_Lacher, ZR_Pages, dndLâcher )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
PROCEDURE lproc_DND_Debut()
DnDAccepte( dndDéplacer )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
PROCEDURE lproc_DND_Survol()
 
 
SI _DND.ChampSource = ZR_Pages..Nom ALORS
 
	DnDCurseur( dndDéplacer ) 
 
SINON
 
	DnDCurseur( dndInterdit )
 
FIN