Marquesina desplazandose

[cso2000]

Saludos a todos:

Tome el codigo que me presto Jhonny y lo modifique un poco

Pruebenlo.

Este ejemplo solo utiliza un Ttimer y un Tlabel dentro de un form


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


Pueden meter el TLabel en cualquier otro objeto "TPanel"
y solo cambiar la linea

Label1.Left := Form1.Width;

por

Label1.Left := Panel1.Width;

y asi controlar el area de la marquesina


Gracias de nuevo Jhonny