puedes simular un recorrido de la siguiente forma:
Declara 2 variables globales al form, llamadas posx y posy.
Pincha un objeto TTimer en el formulario, y dale un tiempo de 100 ms
En el onclick del botón activas el Timer:
Timer.active := true;
En el evento que se disparará del timer cada 100 ms le pones el siguiente código:
image.left := posx;
image.top := posy;
if posx < 300 then
posx = posx + 1;
if posy < 300 then
posy = posy + 1;
self.repaint;
if (posx>=300) and (posy >= 300) then
timer.enabled := false
Esto te llevará la imagen en diagonal hasta las coordenadas (300,300)
Para cambiar la velocidad modifica los 100 ms del timer
Para darle un camino deberças jugar con los incrementos de las coordenadas posx y posy.
Lo importante es el self.repaint, si no lo pones no vas a ver nada hasta el final!
Suerte!
Edu
|