Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

ProgressBar & Timer

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

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.

Kod:
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;
 
Üst Alt