Efecto Marquesina

[[escafandra]]

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Top := Label1.Top - 10;
  if Label1.Top + Label1.Height < 0 then
    Label1.Top := Panel1.Height;
end;

Saludos.

[JuanOrtega]

Hola escafandra , gracias por responder , no tuve tiempo para seguir con el proyecto , estoy tratando de que en vez de usar un panel para controlar , sea el mismo label alargado en el form , el codigo quedo asi :

Código Delphi [-]
procedure TForm1.Form_EffectsClick(Sender: TObject);
begin
  Label1.Caption := 'This is right scrolling text' + sLineBreak +
    'This is right scrolling text' + sLineBreak + 'This is right scrolling text'
    + sLineBreak + 'This is right scrolling text' + sLineBreak +
    'This is right scrolling text' + sLineBreak + 'This is right scrolling text'
    + sLineBreak + 'This is right scrolling text' + sLineBreak +
    'This is right scrolling text' + sLineBreak;
  test.Enabled := true;
end;

procedure TForm1.testTimer(Sender: TObject);
begin
  Label1.Top := Label1.Top - 10;
  if Label1.Top <= 0 - Label1.Top then
  begin
    Label1.Top := Label1.Height;
  end;
end;

Ocurre un efecto raro , cuando el texto llega al final (hacia arriba) termina bien pero cuando empieza abajo el texto empieza mas abajo de lo normal , creo que es porque el texto es largo , ¿ que deberia corregir ? ¿ me conviene mas la version con el panel ?