PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Drag & Drop por programación
Drag & Drop por programación
Débuté par Javier, 09 mar. 2009 18:17 - Aucune réponse
Posté le 09 mars 2009 - 18:17
Hola a tod@s.
Estoy intentando arrastar elementos de un treeview mediante drag&drop a un campo de ediciòn por programación, he declarado el control dndSource, el dndTarget y los eventos dndDragOver y dndDrop pero cuando suelto en el target no me añade nada.
En modo automático sí que funciona pero yo quiero controlar que sólo se puedan arrastar determinados elementos por eso uso el método de programación.
el código quedaría así:
//Inicialización del TreeView
TreeView..dndSource=dndProgram
//Inicialización del campo de edición
EDT_1..DndTarget=dndProgram
DnDEvent("RollOver","EDT_1",dndDragOver)
DnDEvent("OnDrop","EDT_1",dndDrop)
//Procecimiento RollOver
PROCEDURE RollOver()
IF TreeTypeItem(TreeView,TreeView[TreeView])=tvLeaf THEN
DnDCursor(dndCopy)
ELSE
DnDCursor(dndNone)
END
//Procedimiento OnDrop
PROCEDURE OnDrop()
DnDAccept(dndCopy)

//////////
Resultado arrastra pero cuando suelto no añade nada al campo de edición.
¿Alguien puede ayudarme?
Gracias