Arrastrar imagen
Estoy tratando de que en tiempo de ejecución, se pueda recolocar un TImage de la pantalla, de forma que el usuario pueda organizar las distintas imágenes como mejor se maneje.
He puesto el DragMode a automático, pero no me permite moverlas. Es decir, si arrastro, el cursor me cambia al símbolo de prohibición y, si tengo asignado un OnEndDrag, ejecuta ese procedimiento (al soltar el botón del ratón), pero no permite moverlo del lugar donde esté. ¿Qué más hay que hacer para que permita el movimiento? |
|
He utilizado tu código, pero me sigue sin permitir arrastrar.
Es decir, si yo pincho sobre la imagen y muevo el ratón manteniéndolo pulsado, el cursor cambia al icono de prohibición (el círculo con una barra diagonal) y no se mueve la imagen. |
En el ejemplo que te comento no se usa "Drag and Drop"; Si no debes arrastrar entre diferentes controles, sino que sólo debes mover, desactiva esa característica, no te hace falta.
|
He quitado eso y funciona perfectamente ahora, gracias :)
Ahora ya solo me falta implementar que se almacene permanentemente la nueva posición, que no es ningún problema. Ahora, a título de curiosidad... ¿hay alguna forma de que desaparezca ese antiestético parpadeo mientras se mueve? Creo haber leído algo del doble-buffer, pero jamás logré que desapareciese (es un TImage moviéndose por encima de un TPanel (el cuál puede tener otra TImage a modo de ilustración de fondo (esto ya es a elección del cliente)). |
Dependiendo de la versión de delphi con la que trabajes, puedes disponer de la propiedad DoubleBuffered que soluciona este problema:
|
Cita:
|
La franja horaria es GMT +2. Ahora son las 08:39:34. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi