Tema: marquesina
Ver Mensaje Individual
  #1  
Antiguo 27-09-2008
abram abram is offline
Registrado
 
Registrado: sep 2008
Posts: 1
Reputación: 0
abram Va por buen camino
Post marquesina

Hola... bueno mi pregunta es esta:
como se puede hacer una marqesina de texto en delphi 7. Ya q en VB6 para hacer una de estas intente poner un frame y dentro de este coloqe un label y obiamente un timer. En el form coloq el codigo siguiente:

Private Sub Form_Load()
Label2.Caption = " Ejemplo "
End Sub
.......lo q esta dentro dentro de comillas es el nombre a desplazarce dentro del frame..

\\En el timer coloq este codigo:
Private Sub Timer1_Timer()
With Label2
'se desplaza el Label hacia la izquierda
.Move .Left - 30

'si finalizó, vuelve a comenzar desde la parte derecha
If .Left + .Width < Contenedor.Left Then
.Left = Contenedor.Left + Contenedor.Width
End If
End With
End Sub

..........puse este ejemplo de VB6 para darme a enterder lo q quiero hacer en delphi7..de antemano muchas gracias x sus respuestas...
Responder Con Cita