marquesina

[abram]

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...