Foros Club Delphi - Marquesina desplazandose

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Marquesina desplazandose (https://www.clubdelphi.com/foros/showthread.php?t=293)

cso2000

09-05-2003 23:57:07

Marquesina desplazandose

Saludos a todos.

La pregunta es si alguien ha hecho alguna aplicacion que muestre mensajes del tipo de Marquesina que se desplazan
como los de internet.

espero haberme dado a entender

gracias de antemano :D

jhonny

10-05-2003 00:45:56

Sip, yo lo he hecho

Espero eso te haya respondido :D:D,

cso2000

10-05-2003 00:51:29

hola: jhonny

Como ya se que tu has hecho algo asi me gustaria que pudieras ayudarme tal ves me des una idea o me ayudes a resolver mi problema

gracias de ante mano por tu tiempo y ayuda

jhonny

10-05-2003 01:06:24

Bueno, Cuando lo hice use dos Ttimer con 50 en su propiedad interval y un TLabel.

Y La propiedad enabled del primero en "True", y la del segundo en "False"

En el Evento OnTimer del primero Puse Algo asi:

Código:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Left:=Label1.Left+10;

if label1.Left>=500 then

begin

Timer2.Enabled:=True;

Timer1.Enabled:=False;

end;

end;

Y en el sugundo asi:

Código:

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Label1.Left:=Label1.Left-10;

if label1.Left<=0 then

begin

Timer1.Enabled:=True;

Timer2.Enabled:=False;

end;

end;

Y listo Ahora si, Espero te funcione... :)

cso2000

10-05-2003 01:13:21

Muchas Gracias pruebo los la informacion que me envias creo que deve funcionar

hasta pronto

cso2000

10-05-2003 01:14:14

Perdon y muchas felicidades por lo de tu bebe

jhonny

10-05-2003 01:19:02

Pues hombre Muchas gracias, Y descuida Para eso estamos aqui para ayudarnos y compartir informacion

cso2000

12-05-2003 16:30:45

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

La franja horaria es GMT +2. Ahora son las 14:56:37.