Drag-and-drop de Objetos

[Joseg]

Hola,

Pretendia fazer "arrastar-e-largar de objetos numa janela.
Em anexo um exemplo, mas que não funciona muito bem.
Sabem como fazer?

Gracias,
José

[fastpho]

@Joseg
En el evento MouseMove proba con estas lineas

* IF G-IS-DRAG-START THEN
* move pow-x to "Left" OF MODELOS
* move pow-y to "Top" OF MODELOS
* MOVE 2 TO "MousePointer" OF POW-SELF
* END-IF.
IF G-IS-DRAG-START THEN
compute new-tempy = "Top" OF MODELOS + pow-y - tempy
compute new-tempx = "Left" OF MODELOS + pow-x - tempx
move new-tempy to "Top" OF MODELOS
move new-tempx to "Left" OF MODELOS
MOVE 2 TO "MousePointer" OF pow-self
END-IF.

Saludos ...