Mover componentes en runtime

[[felipe88]]

Hola de nuevo, he estado trabajndo un poco con el codigo que me proporciono Neftali, cambie el componente Image para poder crear algo similar a lo que necesito, pero ahora lo que sucede es que tambien desearia poder mover los componentes con el teclado y ademas que entre estos no se cruzen, por esta razon tomaba como ejemplo los speedbutton y la controlbar; ya que estos se pueden cambiar de lugar sin que suceda, alguna idea con la que me puedan ayudar...?

[Neftali [Germán.Estévez]]

Empezado por felipe88

pero ahora lo que sucede es que tambien desearia poder mover los componentes con el teclado y ademas que entre estos no se cruzen

Eso no he acabado de enterderlo (lo de que no se cruzen), ¿Puedes explicarlo mejor?

Empezado por felipe88

pero ahora lo que sucede es que tambien desearia poder mover los componentes con el teclado

Eso casi es más sencillo que con el ratón, ya que lo único que debes hacer es segun las teclas (OnKeyPress/OnKeyDown) cambiar las propiedades Top y Left del componente afectado.

[[felipe88]]

Empezado por Neftali

Eso no he acabado de enterderlo (lo de que no se cruzen), ¿Puedes explicarlo mejor?

Bueno es facil, como podras ver en tu propia aplicacion yo puedo pasar un angelito sobre otro, lo que yo quiero intentar es que eso no pase cuando los este moviendo

Empezado por Neftali

Eso casi es más sencillo que con el ratón, ya que lo único que debes hacer es segun las teclas (OnKeyPress/OnKeyDown) cambiar las propiedades Top y Left del componente afectado.

....Claro lo unico que debo hacer es usar estas lineas

[Neftali [Germán.Estévez]]

Empezado por felipe88

Bueno es facil, como podras ver en tu propia aplicacion yo puedo pasar un angelito sobre otro, lo que yo quiero intentar es que eso no pase cuando los este moviendo

Se me antoja difícil y costoso.
Podrías hacer una rutina que te detectara las "colisiones" entre los diferentes controles del form, mirando las coordenadas y tamaño de todos los existentes, en cada movimiento. Aun así también deberías tener en cuenta que dos controles que se "solapen" pueden estar en diferentes contenedores.

No acabo de ver hacia donde quieres ir...

[[felipe88]]

Bueno pues vere que me invento, aunque con este cuento de las coordenadas como que %&#&)(?¿´ no me entiendo bien...
Ademas...

Empezado por Neftali

No acabo de ver hacia donde quieres ir...

Es algo parecido a esta imagen http://tbn0.google.com/images?q=tbn:...11m/puzle3.jpg
si lo has judado entenderas...

[Neftali [Germán.Estévez]]

Ok, un poco más claro...
Entonces tal vez deberías utilizar opciones de Drag And Drop combinado con lo que hemos hablado.
Si formaras un array de controles con las posiciones (3x3 por ejemplo) eso te permitiría definir cuales son las pociones válidas (controles válidos sobre los que arrastrar); Una vez que tengas los controles válidos, el sistema controla dónde puedes y no puedes "soltar".

Revisa algun ejemplo de Drag & Drop.

[[Chris]]

una humilde opinión de mi parte: ¿no sería mejor que utilizes TActionToolbar de una sola vez?

Puedes hacer un escaneado de los componentes en el toolbar y determinar si alguno se encuentra bajo del que intentas arrastrar, si se da el caso entonces muevelo.

Código Delphi [-]
For I := 0 to Toolbar1.ControlCount - 1 do
Begin
 if TWinControl(Toolbar1.Controls[i]).BoundsRect in MousePos Then
   IF Toolbar1.Controls[i] <> ControlArrastrado Then
  /// mover controles
end;

oviamente, ese código no es valido, pero creo que por ahí va. Lo estoy haciendo de memoria.

Saludo.