Mover Objetos en ejecucion.
 

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?

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

// Saludos

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

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

:D ROMAN eres un genio, gracias mil!!!!