Hola, bueno necesito ayuda con algo, tengo un compente Timage esa imagen es un muñequito, quiero que dicho muñequito se mueve a la x posicion y a y posicion, pero que en dicho camino se mueva paso a paso como si fuera un juego de plataforma estilo starcraft se que en el evento onmouse down me dan las coordenas x,y pero solo logro que dicha imagen se mueva de izquierda a derecha con un procedimiento.
Código Delphi
[-]
procedure TForm1.caminar(x, y:integer);
var
z:integer;
begin
if x < pix then
begin
z:=-5;
repeat
img.left:=img.Left+z;
application.ProcessMessages;
sleep(90);
application.ProcessMessages;
until img.Left <= x;
end
else
if x > pix then
begin
z:=5;
repeat
img.left:=img.Left+z;
application.ProcessMessages;
sleep(90);
application.ProcessMessages;
until img.Left >= x;
end
le mando los parametros en del evento onmousedown del form
Código Delphi
[-]
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
caminar(x,y);
end;
quiero que el muñequito se mueva para donde el usuario le indique
aqui va una imagen de lo quiero.