Arrastre y suelte en tiempo de diseño en Delphi?

Question

Antes de que Delphi 2006 (creo) presentara TFlowPanel y TGridPanel, hice un control similar en concepto. Todavía hace un par de cosas que esos controles no hacen, y cuando actualicé mi código a Delphi 2009, decidí añadir un par de mejoras a eso también.

En este momento, el orden de los controles secundarios está determinado por su orden de creación. El FlowPanel y el GridPanel muestran una mejor manera con ControlIndex y otras propiedades filtradas, pero me preguntaba si hay una forma de manejar el reordenamiento de arrastrar y soltar en tiempo de diseño. Por lo que puedo decir, arrastrar un control de edición y soltarlo en mi panel no llama a nada a lo que pueda acceder en el momento del diseño.

Estaba medio fantaseando sobre una forma de detectar la operación de caída directamente, o quizás detectar cuándo se mueve un control para poder determinar dónde debería ir.

¿Alguna idea?

Actualización: OK, lo tengo trabajando. El control del contenedor ya estaba anulando AlignControls para administrar la ubicación de los controles. Cuando arrastra el control anidado y lo suelta, se llama nuevamente AlignControls. Luego comparé las nuevas coordenadas del control con los otros controles en la lista y lo moví a la posición apropiada.

Hubo un par de problemas que tuve que solucionar (principalmente relacionados con las muchas llamadas a AlignControls) pero el concepto básico es bastante simple. Gracias a todos los comentaristas por toda la ayuda.

Answer 1

No puede arrastrar un control que ya está en el formulario y colocarlo en su panel. Arrastrar es solo para mover un control, no para cambiar su elemento primario. Para cambiar el elemento principal, cortar y pegar.

Si el control ya está en su panel y desea moverlo a otra posición en su panel, entonces el panel puede controlar el diseño anulando el método TWinControl.AlignControls. Cuando se mueve un control, se llama al método SetBounds, y entre las cosas que suceden es que llama al AlignControl(Self) en su ventana principal. Eso llama al AlignControls. Mire en Controls.pas, y verá que ese es un método complicado, pero es el responsable del diseño de los elementos secundarios en un control, y eso es exactamente lo que planea cambiar.

Answer 2

¿Ha intentado escribir un evento "OnDragDrop" para su componente de cuadrícula, donde verifica si su componente está en modo de diseño?

Aún no he escrito un componente así, pero no veo por qué el evento no debería dispararse.

Answer 3

Quizás algunas de estas sugerencias puedan ayudar.

Puede volver a parentalizar un control en el diseñador sin tener que cortar y pegar. Vea el panel de estructura y simplemente arrastre el control visual al nodo de otro elemento primario en el panel de estructura. Si tiene elementos en un panel de flujo, arrastre todo fuera del panel de flujo y arrástrelos hacia atrás en el orden en que desea que estén.

(Puede volver a los padres ningún control visual de esta manera, sin cambiar distinto de su padre nada. Le recomiendo hacerlo de esta manera.)

Usted puede ver la forma como texto, y mover el orden de la declaración por ahí, pero obviamente tendrá que tener cuidado al editar el archivo de "recursos" directamente.

Puede establecer el orden de las pestañas en el diseñador, por lo que puede realizar un control diferente según el orden de las pestañas que funcione como desee. Puede hacer clic con el botón derecho en el formulario y cambiar el orden de creación de los controles no visuales, pero eso no funciona con los controles visuales.