ayuda con mover un grafico

estebanx · #1 22-02-2005

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.

Neftali [Germán.Estévez] · #2 23-02-2005

Cita:

Empezado por estebanx

...pero solo logro que dicha imagen se mueva de izquierda a derecha con un procedimiento.

Bueno es llógico que sólo se mueva con la X, porque no modificas para nada la Y. Otra cosa, es mejor que en lugar de utilizar Sleep, utilices un Timer.
Prueba con lo siguiente; coloca un Timer en el form y utiliza lo siguiente:

Código Delphi [-] 
 ... en la parte privada
   private
 
     _PosXInicial, _PosYInicial, _PosXFinal, _PosYFinal:Integer;
     _DeltaX, _DeltaY:Integer;
 
     { Private declarations }
     procedure caminar2(x, y:integer);
 
 ... antes de la implementación
 const
   NUM_MOV = 20;
 
 ... en la implementacion
 
 procedure TForm1.caminar2(x, y: integer);
 begin
 
   // Deinimos posiciones
   _PosXInicial := img.Left;
   _PosYInicial := img.Top;
   _PosXFinal := X;
   _PosYFinal := y;
   // debfinimos Deltas de "avance"
   _DeltaX := (_PosXFinal - _PosXInicial) div NUM_MOV;
   _DeltaY := (_PosYFinal - _PosYInicial) div NUM_MOV;
   // Actibvamos el movimiento
   Timer1.Enabled := True;
 
 end;
 
 
 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   Caminar2(x,y);
 end;
 
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 var
   XFin, YFin:Boolean;
 begin
 
   // X positiva
   if (_DeltaX > 0) then begin
     if ((img.Left + _DeltaX) >= _PosXFinal) then begin
       XFin := True;
     end
     else begin
       img.Left := img.Left + _DeltaX;
     end;
   end
   else begin  // X negaiva
     if ((img.Left + _DeltaX) <= _PosXFinal) then begin
       XFin := True;
     end
     else begin
       img.Left := img.Left + _DeltaX;
     end;
   end;
 
   // Y positiva
   if (_DeltaY > 0) then begin
     if ((img.Top + _Deltay) >= _PosYFinal) then begin
       YFin := True;
     end
     else begin
       img.tOP := img.Top + _DeltaY;
     end;
   end
   else begin  // Y negaiva
     if ((img.Top + _DeltaY) <= _PosYFinal) then begin
       YFin := True;
     end
     else begin
       img.Top := img.Top + _DeltaY;
     end;
   end;
 
   if (XFin and YFin) then begin
     Timer1.Enabled := False;
   end;
 end;

estebanx · #3 23-02-2005

Muchisimas gracias entendi el codigo y todo estoy muy agradecido.

estebanx · #4 07-03-2005

Neftali necesito hacerlo ahora sin un timer por favor dame una idea