Marquesina desplazandose

[jhonny]

Bueno, Cuando lo hice use dos Ttimer con 50 en su propiedad interval y un TLabel.

Y La propiedad enabled del primero en "True", y la del segundo en "False"

En el Evento OnTimer del primero Puse Algo asi:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left+10;
if label1.Left>=500 then
begin
Timer2.Enabled:=True;
Timer1.Enabled:=False;
end;
end;

Y en el sugundo asi:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left-10;
if label1.Left<=0 then
begin
Timer1.Enabled:=True;
Timer2.Enabled:=False;
end;
end;

Y listo Ahora si, Espero te funcione...