Tente colocar um application.processmessage apos a mensagem.. e um update..
--- Em [EMAIL PROTECTED], "Adonis" <[EMAIL PROTECTED]> escreveu > 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
