Merhaba arkadaşlar,

Bu dersimizde progressbar ve timer nesnelerini kullanarak basit bir uygulama yapacağız.

Uygulamamızda progressbar %100 olduğunda süreniz doldu şeklinde bir mesaj verdireceğiz. Bu uygulama başlangıç seviyesindedir eğer isterseniz bu uygulamadan yola çıkarak ihtiyaçlarınız doğrultusunda çok daha ileri seviyede uygulamalar hazırlayabilirsiniz

Formumuza bir adet progressbar ile bir adet timer nesnesi ekliyoruz. Önce Object Inspector penceremizden timer nesnemizin interval özelliğini 100, enabled özelliğini true yapıyoruz. Daha sonra progressbar nesnesinin min özelliğini 0 ve max özelliğini 100 yapıyoruz.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

progressbar1.Position:=progressbar1.Position+1; 

if progressbar1.Position=100 then 

begin

timer1.Enabled:=false;

showmessage ('Süre doldu'); 

end;

end;

Ardından yukarıdaki kodları timer nesnemizin OnTimer bloğuna yazıyoruz. Uygulamamızı çalıştırınca progressbar dolduğunda süreniz doldu şeklinde mesaj veriyor.