Criar texto subindo a tela
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...
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
Curtidas 0
Respostas
Okama
14/05/2003
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;
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;
GOSTEI 0