Mostrar mensajes con movibilidad

[ecfisa]

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