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" 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]