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
|