pintar edits

Question

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.

Afischer · Answer

Caro delphiano,

se voc� olhar na ajuda do delphi notar� que est� escrito que a procedure sleep() funciona com threads. No meu entender, ela � utilizada para fazer uma pausa numa thread enquanto outra funciona.

Numa outra hora posso explicar o conceito de Threads. Por agora, vai uma fun��o que resolve o seu problema.

Ela faz com que o programa espere alguns milissegundos e logo ap�s continue a execu��o.

procedure Delay( mSecs: longint );
var
vFirstTickCount: longint;

begin

vFirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
until ( ( GetTickCount - vFirstTickCount ) >= mSecs );

end;

Use-a do seguinte modo:

procedure TForm1.Button1Click( Sender: TObject );
begin

Edit1.Color := clRed;

delay( 1000 );

Edit2.Color := clRed;

end;

Era isso a�. 8)

Andr� Fischer

F�rum pintar edits #158046