¿Alguien puede ayudarme?
Ezequiel Castro/México
Fijate en el help en lo métodos Drag, DragDrop y DragOver. También las
propiedades DragMode y DragIcon. Quizás también tengas que tener en cuenta
los métodos MouseDown, MouseUp y MouseMove.
Antonio
Ezequiel Castro López wrote in message ...
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if nbutton = 1 && está pinchado el botón del ratón
this.drag && inicia la acción de arrastrar
endif
En segundo lugar determinar lo que quieras hacer en el control de destino
cuando el objeto esta encima de él. Esto se configura en el evento
'DragOver' (Por ejemplo cambiar el icono para que se vea que ahí se puede
soltar).
En tercer lugar determinar las acciones a realizar cuando el usuario suelta
el control origen encima del control destino. Esto se configura en el evento
'dragdrop'
En todos estos eventos, el sistema te da como parámetros el propio control
movido, y las posiciones del ratón.
Falta mucho por decir, pero si es como comienzo creo que te servirá. Mira la
ayuda y los ejemplos, que para eso están y viene bastante sobre esto.
--
Saludos,
-------------------------------------------------------
Carlos Yohn Zubiria
AGP
a...@kender.es
-------------------------------------------------------