Basit gibi görünen bir sorun

[underwater]

Arkadaşlar merhaba;

Forma bir panel bir tanede buton koydum ve butonun click olayına aşağıdakileri yazdım :

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Color:=clRed;
Sleep(1000);
Panel1.Color:=clBtnFace;
Sleep(1000);
Panel1.Color:=clRed;
Sleep(1000);
Panel1.Color:=clBtnFace;
end;

programı çalıştırıp butona tıkladığımda panel renginde hiçbir değişiklik olmadı.Oysa koda göre 1 sn arayla renk değiştirmesi gerekiyor.

Neden böyle oluyor?

[White Rose]

her renk değişiminden sonra panel1.refresh; yazın bir deneyin

[underwater]

çok teşekkürler white rose

işe yaradı