Buscar

Efeito marquee no delphi

Código

{ NA PALETA SYSTEM -> TIMER
DEPOIS DE INSERIR NO FORM, DÊ DOIS CLIQUES NELE E COLOQUE:
}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  StrNewCaption:string;
begin
  StrNewCaption := Label1.Caption;
  Label1.Caption := Copy(StrNewCaption, 2, Length(StrNewCaption)-1) + Copy(StrNewCaption, 1, 1);
end;

//PS: ONDE O 'LABEL1' É A PALAVRA A TER O EFEITO.
//NA PROPRIEDADE INTERVAL, VOCÊ MUDA A VELOCIDADE.

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Componentes
Adicionada dia: 13/01/06
Por: Mario Medeiros
Visualizada: 4867 vezes

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