ProgressBar & Timer
Merhaba değeleri Exl sakinleri;
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
Gerekli Olan Nesneler;
1-)Bir adet progressbar
2-)Bir Adet Timer
Ö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.Ardından Aşağıdaki kodları yazıyoruz;
Kod:
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;
Herşey tamam.Bir sorunla karşılaşıldığı zaman bu topic altından sorunlarınızı belirtiniz.
Kolay Gelsin...
Saygılarımla;
RedeFine