Criar texto subindo a tela

14/05/2003

0

Oi Pessoal
Criei um texto com 10 linhas, sendo cada linha, um TLabel.

Como devo fazer para que no evento onshow desse form, essas linhas(esses TLabels) fossem subindo a tela?

Dando efeito daquelas letrinhas subindo a tela, igual no cinema...


Lbsystems

Lbsystems

Responder

Posts

14/05/2003

Okama

Use um timer:

Label1.Caption := Lable2.Caption;
Label2.Caption := Lable3.Caption;
Label3.Caption := Lable4.Caption;
Label4.Caption := Lable5.Caption;
Label5.Caption := Lable6.Caption;
Label6.Caption := Lable7.Caption;

Para um efeito melhor aconselho usar um Memo e ir subindo o objeto pixel a pixel o efeito é mais suave.


if memo1.Top = 0 then
Timer1.Enabled := False;

Memo1.Top := Memo1.Top-1;


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar