Buscar

Letreiro digital (da direita para esquerda)

Código

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

Espero que gostem..
Vlw..}
 

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Forms
Adicionada dia: 02/12/07
Por: Luis Felipe Tonini
Visualizada: 7595 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009