Criar texto subindo a tela

14/05/2003

1

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


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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira