Ayuda con Objetos

[OscarG]

Yo con objetos Shape y otros componentes delphi no suelo tratarlos, pero si q he tenido q hacer objetos q se arrastren.

Yo lo q suelo hacer es, digamos q tengo un objeto q se arrastra y otro contenedor, entonces, cuando arrastro un objeto, activo el contenedor para q se ponga en activo, y al soltar el ratón, lo desactivo. Entonces al activar el contenedor, el contenedor mira si el puntero se está posicionando encima de él, si es asi, suelo hacer q el contenedor cambie de forma para q se sepa q estas encima, y si sueltas dentro del contenedor, entonces haría lo q tenga q hacer...para esto podrías quizás sobreescribir las clases o quizás no...

Esto lo hago yo xq me creo mis propios objetos, pero igual el propio delphi tiene otras posibilidades, espero no llevarte por el mal camino...

[roman]

¿Y no sería mejor utilizar el mecanismo de drag&drop que ya implementa Delphi?

1. Se pone la imagen en DragMode = dmAutomatic.
2. A los objetos TShape se les asigna el mismo evento OnDragOver y OnDragDrop.
3. En OnDragOver se pone el parámetro Accept en true para aceptar el arrastre (o se usa algún otro método para determinar si se puede o no soltar ahí la imagen).
4. Ambos eventos cuentan con el parámetro Sender que será el TShape sobre el que se va a soltar la imagen y el parámetro Source que es el objeto que se está arrastrando.
5. En el evento OnDragDrop se usan los parámetros X, Y para determinar la posición donde se suleta la imagen y, en su caso, mover el objeto TImage ahí.

// Saludos

[JerS]

Empezado por roman

¿Y no sería mejor utilizar el mecanismo de drag&drop que ya implementa Delphi?

1. Se pone la imagen en DragMode = dmAutomatic.
2. A los objetos TShape se les asigna el mismo evento OnDragOver y OnDragDrop.
3. En OnDragOver se pone el parámetro Accept en true para aceptar el arrastre (o se usa algún otro método para determinar si se puede o no soltar ahí la imagen).
4. Ambos eventos cuentan con el parámetro Sender que será el TShape sobre el que se va a soltar la imagen y el parámetro Source que es el objeto que se está arrastrando.
5. En el evento OnDragDrop se usan los parámetros X, Y para determinar la posición donde se suleta la imagen y, en su caso, mover el objeto TImage ahí.

// Saludos

Muchas Gracias a todos por su Ayuda , Una pregunta Roman con el evento OnDragDrop yo puedo especificar en que parte del shape me suelte la imagen, asignandolo en la X y Y??. Disculpa mi ignorancia, pero hice todo lo que me dices ahi arriba y cuando intento mover la imagen me sale bloqueada, el Icono que no me deja mover ahora la imagen

[dec]

Hola,

Con el permiso de roman. Estuve jugando un poco con el tema y he preparado un sencillo ejemplo (que adjunto) a ver qué te parece JerS.

[JerS]

Empezado por dec

Hola,

Con el permiso de roman. Estuve jugando un poco con el tema y he preparado un sencillo ejemplo (que adjunto) a ver qué te parece JerS.

MUCHAS GRACIAS Dec, tu ejmplo era exactamente lo que necesitaba (Y)..