timer

[aayylliinn]

arkadaşlar ben bazı kodlar çalıştıktan sonra 2 saniye beklenmesini daha sonra kaldığı yerden diğer kodları çalıştırmasını istiyorum. bunun timerla yapılabileceğini biliyorum ancak uğraşmama rağmen yapamadım . yardımlarınızı bekliyorum ..

[ZeynelAbidin]

Timer belirli saniye aralıklarıyla ontimeri ne gider ve oradaki kod bloğunu baştan sona çalıştırır.Sizin istediğiniz bekleme işlemini

Kod: Tümünü seç

sleep(2000//2 saniye bekler.)

komudu ile yapabilirsiniz.

[aayylliinn]

aslında tam istediğimi sleep komutu ile yapamadım
mesela

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Color:=clSilver;
Sleep(2000);
end;

kod bloğunu yazdığımda button cliklendiğinde ben önce edit1.color un silver olması ondan sonra 2 saniye beklemesini istiyorum. ancak bu şekilde yaptığımda önce 2 saniye bekliyo daha sonra rengini değiştirio . timer la nasıl yapılabilir? yada sleep le yapabilmem için ne yapmalıyım ??

[unicorn64]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Color:=clSilver;
application.processmessages;
Sleep(2000);
end;

[qamyoncu]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Color:=clSilver;
Edit1.Refresh;
Sleep(2000);
end;