Mover Objetos en ejecucion.

[kman]

Saludos Delphinianos!

Necesito me ayuden con el siguiente codigo, ya que no soy un pro en esto:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var x: integer;
begin
        for x:= 1 to 10 do
        begin
        shape1.Top:= +1;
        end;
if shape1.Top= 0 then
        for x:= 1 to 10 do
        begin
        shape1.Top:= -1;
        end;
end;
end.

Lo que trato hacer es que al hacer click en el boton el objeto se mueva hasta el tope del formulario y que regrese su punto original al hace click nuevamente, pero que esto se vea... frama por frama?

[roman]

Podrías poner un Sleep(milisegundos) en cada paso para que no se vea todo de un sólo golpe.

// Saludos

[kman]

Empezado por roman

Podrías poner un Sleep(milisegundos) en cada paso .

Donde? lo he puesto y sigue de un golpe envez de varios.

[roman]

Aquí tienes parte del movimiento:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;

begin
  for x:= 1 to 100 do
  begin
    shape1.Top := shape1.Top + 1;
    shape1.Refresh;
    Sleep(10);
  end;
end;

Como verás le he agregado un refresh para obligarlo a que se dibuje antes de dar el siguiente paso. Por otro lado, tenías

shape1.Top:= +1;

Imagino que estabas pensando en una sintaxis tipo C

shape1.Top += 1;

sólo que no existe en Delphi.

// Saludos

[kman]

ROMAN eres un genio, gracias mil!!!!