Seleccionar shapes y moverlas

[rocio84]

Hola:

Limitar movimiento:
Para evitar que las imagenes no se salen de los bordes, desplazalas siempre que esa condicion se cumpla, para ello puedes hacer una funcion como la sigue:

Código Delphi [-]
function posicionIncorrecta(imagenTop,imagenLeft:integer):boolean;
begin 
result := (imagenTop = 0) or (ImagenLeft=0) or //bordes superior e izquierdo
              (imagenTop+imagen.Height=form.Height) or //borde inferior
              (imagenLeft+imagen.Width = form.Width); //borde derecho
end;

de modo que dentro del procedimiento en el que desplazas las imagenes añades un if--then en el que solo muevas la imagen si no se cumple esta condicion.

Seleccionar:
Para seleccionar una imagen puedes usar la clase Canvas de delphi con la que puedes dibujar un rectangulo que simule que tienes la imagen seleccionada en el evento OnClicK de la imagen.

Mover con el teclado:
Por ultimo para mover las imagenes con el teclado puedes hacer algo similar a moverlas con el raton solo que q tienes que usar el evento OnKeyDown. En este evento compruebas si se ha pulsado las flechas del teclado y dependiendo de cual se pulse mueves en una direccion u otra. Para comprobar que se pulsan las flechas compara 'key' con:

VK_DOWN
VK_UP
VK_LEFT
VK_RIGTH

Un Saludo.

[alec287]

Hola, mi nombre es alejandro, y estoy intentando implementar algo parecido a lo que ustedes vienen hablando. Utilice la funcion que sugirieron para controlar que los shapes no se puedan mover fuera del area del formulario (en mi caso un panel). El problema que tuve es que cuando llego a uno de los extremos, el shape no se sale del form, pero no lo puedo volver a mover mas, se queda fijo en esa posicion. Les agradeceria cualquier tipo de ayuda. Desde ya muchas gracias.

Alejandro.

[rocio84]

Tienes razon, cuando llega a los bordes ya no se pueden volver a mover xq la posicion sigue siendo incorrecta. Voy a ver si puedo solucionarlo.

Un Saludo.

[turminator]

Bueno, para optimizar el tamaño de mi Form creo que haré un sistema mediante Chekbox que me permita sumar X valor a los Tedits, con lo que podremos ver la imagen que movemos pero en realidad estaria en una coordenada mucho más lejana.

La función que uso para marcar la posición en los TEdits es la siguiente:

Código Delphi [-]
Edit47.Text := IntToStr((Sender as TImage).Left);
Edit48.Text := IntToStr((Sender as TImage).Top);

Alguien sabe como podria hacer para que al seleccionar entre 4 CheckBox (esquina dereche,izquierda,arriba y abajo) pudiera sumar X valor al ya dado por las coordenadas?

Muchas gracias!