Buscar

Criando um letreiro digital

Código

{coloque um ttimer, um panel, um label dentro do panel. Set a propriedade interval do timer de 1000 para 1. isso fará com que o letreiro fique mais rápido.
Mude as cores e o caption do label como quiser. depois acrescente os códigos abaixo}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Left=panel1.Width then
label1.Left:=-(label1.Width)
else
label1.Left:=label1.Left+1;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
label1.Left:=-(label1.Width);
end;

//qualquer dúvida é so postar

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 19/10/07
Por: Alienderson
Visualizada: 9527 vezes

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