FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Drag&Drop para clasificar Imagenes
Hola a todos:
Les consulto el siguiente problema: En un form tengo 10 TImage sobre un panel (2 filas x 5 columnas), al iniciar el formulario ejecuto este comando:
de esta forma la propiedad ... Graphic queda igual a nil en todos ellos. Luego con un procedimiento pongo 5 imágenes jpg en la primera fila. Ahora de lo que se trata es organizarlas o acomodarlas según se quiera, las imagenes tienen por nombre Image1, Image2,... Image10. Todas ellas tienen por común lo siguiente
los eventos estan programados así:
De esta forma si arrastro una imagen a un TImage vacío (=nil) lo suelto y se coloca en el nuevo lugar y su sitio original queda vacio con la propiedad ...Graphic := nil, al menos esa es la teoría. El asunto funciona cuando traslado, por ejemplo la imagen1 a la imagen7, la imagen2 a la imagen6.. y así. El problema se presenta cuando quiero arrastrar una imagen a uno de los sitios que ha quedado vacio, por ejemplo si ahora quiero arrastrar la imagen6 a la imagen1, no me deja. Parece ser que se queda algo en el sitio de la imagen original que no permite dejar caer una nueva imagen. Pido ayuda para saber que es lo que tengo que hacer para habilitar el sitio que quedó vacio para que pueda recibir otra imagen. Muchas gracias, Última edición por roman fecha: 19-04-2007 a las 18:00:31. |
#2
|
||||
|
||||
Cuando "sueltas" la imagen lo que estas haciendo es colocar un TImage encima de otro, así que el espacio que ocupaba queda vació. Por eso cuando intentas mover una imagen al sitio que quedo vacío no funciona, porque el método que utilizas solo mueve una Timage sobre otro, no a un sitio vacío.
Una solución podrá ser intercambiar los sitios de las dos imágenes, algo así:
|
#3
|
|||
|
|||
Drag&Drop para clasificar Imagenes
Muchas gracias Seoane, tu sugerencia funcionó. Muchas gracias.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Drag & Drop | DanForever | Varios | 2 | 01-06-2006 14:24:25 |
Drag & Drop con StringGrid | kes | Varios | 2 | 27-07-2005 18:04:03 |
Drag&Drop !!! | rafstyle | OOP | 6 | 27-07-2004 04:39:41 |
Drag&Drop | xflo | Lazarus, FreePascal, Kylix, etc. | 0 | 13-10-2003 19:31:22 |
Drag & Drop | cone220 | Varios | 1 | 26-05-2003 19:06:34 |
|