Ver la Versión Completa : Marquesina desplazandose
cso2000
09-05-2003, 23:57:07
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:
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:
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
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.