Fórum mudar cor do edit #158048
06/05/2003
0
Alguem pode me explicar poeque isso não funciona ou como devo fazer?
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Color:=(ClRed);
sleep(1000);
edit2.color:=(ClRed);
end;
Pela lógica o Edt1 ficaria vermelho e depois de 1 seg o edit2 tambem ficaria vermelho,mas aqui os dois ficam ao mesmo tempo.
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Color:=(ClRed);
sleep(1000);
edit2.color:=(ClRed);
end;
Pela lógica o Edt1 ficaria vermelho e depois de 1 seg o edit2 tambem ficaria vermelho,mas aqui os dois ficam ao mesmo tempo.
Kroki
Curtir tópico
+ 0
Responder
Posts
06/05/2003
Adilsond
O windows processará as mensagens ao final, utilize o application.processMessages.
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Color:=(ClRed);
Application.ProcessMessages;
sleep(1000);
edit2.color:=(ClRed);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Color:=(ClRed);
Application.ProcessMessages;
sleep(1000);
edit2.color:=(ClRed);
end;
Responder
Gostei + 0
06/05/2003
Kroki
Valeu kara!!.
Isso acontece porque usei um componente de texto??
Isso acontece porque usei um componente de texto??
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)