mudar cor do edit
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
Curtidas 0
Respostas
Adilsond
06/05/2003
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;
GOSTEI 0
Kroki
06/05/2003
Valeu kara!!.
Isso acontece porque usei um componente de texto??
Isso acontece porque usei um componente de texto??
GOSTEI 0