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 ?