como arrastro un objeto en delphi?

[djmetroid]

eso es exactamente lo que quiero hacer nightynvid, pero lo dificil esta en implementar un procedure que se encargue de ver si se intersectan o no los valores del circulo y del raton, y supongamos que ya tengo ese procedure y si se intersectan , como dice lepe, un objeto es abstracto y no puede moverse, pero me imagino que se puede llamar a un procedure que hice llamado traslacion, y que obviamente traslada ese circulo dandole la coordenada respectiva, se debe meter ese procedure en el evento mousemove me imagino o estoy mal, y el evento mouse down es el que calcula la coordenada del raton inicial, y el mouse up la coordenada donde se va a trasladar el circulo, o de plano estoy perdido, y todo esta mal
por cierto, si pinte el circulo en un canvas Timage

[[Lepe]]

Puedes usar los 3 eventos MouseDown, MouseMouve y MouseUp, todo depende de la lógica que quieras usar. Como lo has planteado es lo normal.

Para hallar intersección, Delphi tiene:
- ptInRect Dado un cuadrado (TRect) y un punto, devuelve True si el punto está en el cuadrado
- ptInRegion, es algo más compleja de usar, pero valdría para saber si un punto está inscrito en cualquier polígono pintado a mano alzada, (quizás el método para ver si un circulo intersecta con el cuadrado). Primero debes usar CreateRgn para crear el círculo. Mira en la ayuda de delphi.

Lo que no queda claro es la lógica del programa, una forma es esta:

Uso una variable Global del form llamada IsMouseDown:Boolean, en el MouseDown del Timage la pongo a True, en el MouseUp del Timage la pongo a false. (esto me permite saber en el evento MouseMove si el usuario tiene presionado el ratón mientras mueve el ratón por el TImage).

- Mantengo pulsado el ratón en el canvas, llamo a una función llamada Intersecta que devuelve True si el punto donde he bajado el ratón interfiere con otros ya pintados:

- Si devuelve False, pinto el circulo.
- Si devuelve True, cambio el cursor del ratón al símbolo de prohibido (dando a entender al usuario que ahí no puede pintar)
En el evento MouseMove, si la variable IsMouseDown está a true, llamo a la misma rutina Intersecta (con la nueva posición del ratón)

Por último en el evento OnMouseUp verifico que el botón estaba presionado y que se puede pintar sin colisiones, en este punto dibujo el círculo y pongo la variable IsMouseDown a false.

¿te sirve?

Saludos

[djmetroid]

lo voy a intentar gracias