Hola pape19.
Y también se le puede agregar el sentido del desplazamiento:
Código Delphi
[-]
const
SPC10 = ' ';
var
gTexto : string = SPC10 + ' Prueba de desplazamiento de texto' + SPC10;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.AutoSize := False;
Timer1.Interval := 1000 div 10;
Timer1.Enabled := False;
rbToRight.Checked := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if rbToRight.Checked then
Label1.Caption := Copy(gTexto, Length(gTexto), 1) + Copy(gTexto, 1, Length(gTexto) -1)
else
Label1.Caption := Copy(gTexto, 2, Length(gTexto)-1) + Copy(gTexto,1, 1);
gTexto := Label1.Caption;
end;
procedure TForm1.btStartClick(Sender: TObject);
begin
Timer1.Enabled := True;
end;
procedure TForm1.btStopClick(Sender: TObject);
begin
Timer1.Enabled := False;
end;
Salida:
Saludos