Drag-and-drop de Objetos

Joseg · 21.09.2026 18:39

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 · 21.08.2026 18:08

@Joseg
En el evento

Código:

MouseMove

proba con estas lineas

Código COBOL:

*    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 ...

Otros temas que te pueden interesar
Tema	Autor	Foro	Respuestas	Último post
[Sintaxis] Arrastrar y soltar archivos (Drag and Drop)	Joseg	PowerCOBOL (ActiveX, v4 - v11)	30	28 de noviembre de 2024 14:10
[Sintaxis] ¿Definir una tabla de referencias de objetos?	KTSnowy	COBOL - General	4	6 de febrero de 2023 10:07
[Sintaxis] Listar objetos secuencialmente	Kuk	Object-Oriented COBOL	0	23 de febrero de 2017 09:33

Likes

Likes


		Archivo - Cobol Foro		Webdesign by: vbdesigns.de		Contactar con Nosotros - Cobol Foro