Ao André e Saulofg, agradeço pelo atendimento, realmente resolveu com o Application.ProcessMessages;
Obrigado Roberto (RJ) De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de saulofg Enviada em: quarta-feira, 1 de abril de 2009 08:45 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Me expliquem o porque por favor. Tenta fazer assim: procedure TForm1.Button1Click(Sender: TObject); begin Label1.Visible := False; Application.ProcessMessages; Sleep(5000); Label1.Visible := True; Application.ProcessMessages; end; --- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> , "Roberto" <wa...@...> escreveu > > Tenho num form um botão e um label (visible =false) > > > > Ao clicar no botão na primeira vez, o label apaga e depois do tempo > decorrido sleep acende normalmente. > > Porque ao clicar nas vezes seguinte não apaga e acende depois do tempo, fica > sempre aceso? > > Já resolvi o assunto, mudando o foco para outro componente e depois > retornando ao clicar, ainda assim não entendo porque acende e não apaga > mais. > > > > procedure TForm1.Button1Click(Sender: TObject); > > begin > > Label1.Visible := false; // esta não acontece na segunda vez em diante > > sleep(5000); > > Label1.Visible := true; > > end; > > > > Roberto(RJ) > > > > > > Em tempo, mesmo com tempos maiores, continua o problema > > > > [As partes desta mensagem que não continham texto foram removidas] > [As partes desta mensagem que não continham texto foram removidas]
