Dicas Delphi - Letreiro Digital - Direita para Esquerda

Salve, salve amigos,

// Coloque um Timer, um Panel e um Label dentro do Panel.

// Dê um duplo clique no Timer e digite o código abaixo:}

if label1.left>= -(label1.Width) then

label1.left:=label1.left-1
else

label1.left := Panel1.width;

// Você pode alterar a velocidade do texto na propriedade Interval do Timer, quanto 

//menor o Interval, mais rápido ficará o letreiro.

Take care