FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
Sip, yo lo he hecho
Espero eso te haya respondido ,
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ Última edición por jhonny fecha: 10-05-2003 a las 01:09:19. |
#3
|
|||
|
|||
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 |
#4
|
||||
|
||||
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; 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;
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ Última edición por jhonny fecha: 10-05-2003 a las 01:23:35. |
#5
|
|||
|
|||
Muchas Gracias pruebo los la informacion que me envias creo que deve funcionar
hasta pronto |
#6
|
|||
|
|||
Perdon y muchas felicidades por lo de tu bebe
|
#7
|
||||
|
||||
Pues hombre Muchas gracias, Y descuida Para eso estamos aqui para ayudarnos y compartir informacion
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#8
|
|||
|
|||
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿Como seleccionar un nodo en Treeview desplazandose hasta él? | neon | OOP | 3 | 21-09-2004 07:39:14 |
|