Hola como estan? bueno quiero por favor que me ayuden con lo siguiente, necesito crear una clase para varios procedimientos que tengo, dichos procedimientos hacen mover una imagen.
He aqui el codigo para que la imagen se mueva
Primero las variables
Código Delphi
[-] private
deltax,deltay,posxi,posxf,posyi,posyf:integer;
luego el procedimiento caminar
Código Delphi
[-]procedure TForm1.caminar(x, y:integer);
var
sx,sy:boolean;
begin
PosXI:= img.Left;
PosYi:= img.Top;
PosXF:= X;
PosYF:= y;
DeltaX := (PosXF - PosXI)div mov;
DeltaY := (PosYF - PosYI)div mov;
Repeat
if (DeltaX > 0) then begin
if ((img.Left + DeltaX) >= PosXF) then begin
sX := True;
end
else begin
img.Left := img.Left + DeltaX;
Application.ProcessMessages;
sleep(105);
end;
end
else begin if ((img.Left + DeltaX) <= PosXF) then begin
sX:= True;
end
else begin
img.Left := img.Left + DeltaX;
application.ProcessMessages;
sleep(105);
end;
end;
if (DeltaY > 0) then begin
if ((img.Top + Deltay) >= PosYF) then begin
sY := True;
end
else begin
img.tOP := img.Top + DeltaY;
Application.ProcessMessages;
sleep(105);
end;
end
else begin if ((img.Top + DeltaY) <= PosYF) then begin
sY := True;
end
else begin
img.Top := img.Top + DeltaY;
Application.ProcessMessages;
sleep(105);
end;
end;
until (sx=true)and(sy=true)
end;
primero le mando los parametros desde el evento onmousedown del form, la idea es crear una clase que tenga varios objetos, caminar, saltar etc.
Gracias de antemano.