Anexo fonte de letreiro que fica correndo na tela, vê se ajuda.
----- Original Message ----- From: "Eduardo Silva ®" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, November 16, 2004 9:34 AM Subject: RES: [delphi-br] Preciso arrumar esse letreiro urgente Coloquei a rotina dentro do timer e alterei o timer para 400 milissegundos. Agora o label pisca muito rápido e eu não consigo enxerga-lo..... Fiz a alteração do timer para 3000 e também não consigo enxerga-lo..... Quando eu debugo eu até vejo que ele aparece direitinho, o que pode estar acontecendo ? -----Mensagem original----- De: [> Mutuka <] [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 15 de novembro de 2004 15:16 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Preciso arrumar esse letreiro urgente em vez de vc criar um procedimento q o timer chame ele vc coloca seu procedimento dentro do timer e seta o timer para 400 milisegundos... e tira o sleep da rotina e faça um procedimento q cada vez q ele eh executado ele aumente somente uma letra do letreiro e verifique se estiver o texto completo apague e acenda (usando uma varia e conte quantas vezes vc quiser)... --- Eduardo Silva ® <[EMAIL PROTECTED]> escreveu: > > Galera, fiz a rotina abaixo para fazer um > letreiro, só que estou tento > alguns problemas: > > - não consigo fechar o form antes de executar > todo o procedimento; > - tem hora que o label fica piscando e aparece > um fundo branco; > - não consigo executar nenhuma outra ação > enquanto todo o letreiro não é > escrito > > Alguém pode me dar uma mão ? > > procedure TForm1.PiscaPisca; > var > sMostra, sTitulo : string; > i, iSoma, iVelocidade : integer; > begin > iSoma := 1; > iVelocidade := 400; > sTitulo := 'KOBRA SISTEMAS'; > > for i := Length(sTitulo) downto 0 do > begin > sMostra := Copy(sTitulo,1,iSoma); > iSoma := iSoma + 1; > Label1.Caption := sMostra; > sleep(iVelocidade); > refresh; > if iSoma = Length(sTitulo) + 1 then > begin > sTitulo := ''; > iSoma := 1; > end; > end; > end; > > procedure TForm1.Timer1Timer(Sender: TObject); > begin > PiscaPisca; > end; > > > Obrigado desde já. > > > _ __________________________________ _ > / )| |( \ > / / | 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 > > > > -- > <<<<< 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 > > http://br.groups.yahoo.com/group/delphi-br/ > > [EMAIL PROTECTED] > > http://br.yahoo.com/info/utos.html > > > > > > ===== Leandro... [> Mutuka <] _______________________________________________________ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. --- 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
