Defina o nome do label para lblLetreiro e o nome do timer para tmrLetreiro.
No evento FormShow defina o texto que vc quer apresentar atribuindo uma stringa
para a variável strLetreiro.
Altere a quantidade de vezes que vai piscar no primeiro if do evento Timer do
componente tmrLetreiro. (Atual igual a 5)
var
Form1: TForm1;
intCont: integer=0;
intPos : integer=0;
strLetreiro:string;
implementation
{$R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
begin
lblLetreiro.Caption := '';
strLetreiro:='Letreiro';
end;
procedure TForm1.tmrLetreiroTimer(Sender: TObject);
begin
if (intPos = Length(strLetreiro)) and (intCont < 5) then
begin
inc(intCont);
lblLetreiro.Visible := not lblLetreiro.Visible;
end
else if intCont = 5 then
begin
intCont := 0;
intPos:=0;
lblLetreiro.Caption := '';
end
else
begin
lblLetreiro.Visible := True;
lblLetreiro.Caption := lblLetreiro.Caption + strLetreiro[intPos+1];
inc(intPos);
end;
end;
Att.
Luiz Eduardo Dario de Araujo
> [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
-----Mensagem original-----
De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 12 de novembro de 2004 15:34
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Letriro no caption do form principal
Galera, gostaria de fazer um letreiro no caption do meu form principal
da
seguinte maneira:
1 - As letras fossem aparecendo uma a uma
2 - Após todas as letras aparecerem, ele desse três piscadas (com todo
o
texto formado)
3 - Apaguesse tudo e começasse novamente o processo de aparecer uma
letra
por vez.... _ __________________________________ _
/ )| |( \
/ / | Eduardo de Almeida Silva | \ \
_( (_ | _ * [EMAIL PROTECTED] _ | _) )_
(((\ \)|_/ )__________________________( \_|(/ /)))
(\\\\ \_/ / \ \_/ ////)
\ / \ /
\ _/ \_ /
/ / \ \
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
