Delphi Can
AdoQuery içinde progressbar kullanımı hakkında - Baskı Önizleme

+- Delphi Can (http://www.delphican.com)
+-- Forum: Delphi (http://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (http://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: AdoQuery içinde progressbar kullanımı hakkında (/showthread.php?tid=365)



AdoQuery içinde progressbar kullanımı hakkında - emrekilinc1984 - 05-11-2016

Merhaba arkadaşlar ben adoquey ile formumda verileri girip kaydet butonuna bastığım an progress var kaydedene kadar görünsün istiyorum bunu nasıl yapabilirim internette araştırdım yabancı kaynak çok fazla buldum ama denediklerim olmadı. Yardımcı olursanız çok sevinirim.


Cvp: AdoQuery içinde progressbar kullanımı hakkında - Fesih ARSLAN - 05-11-2016

Merhaba,
Öncelikle ProgressBar'ın Visible özelliğini tasarım ekranında  False  yapın.  Böylece  uygulama  çalıştığında  ProgressBar  görünmeyecektir.
Kayıt  işlemine  başlamadan, ProgressBar'ı  göstererek,  pozisyon  ve  max  değerlerini  belirleyin. finally  bölümünde  ise  visible  özelliğini   False  yapın.
örnek verecek  olursak

//Diğer işlemler
ProgressBar1.visible := True;
ProgressBar1.max := KaydedeceğinizKayitSayisi;
ProgressBar1.Position := 0;
Try
//Kayıt işlemleri döngüsü
 ProgressBar1.Position := işlenenkayitSayisi;
Application.ProcessMessages;
 //Kayıt işlemleri sonu
Finally
 ProgressBar1.visible :=False;
End;

İyi çalışmalar


Cvp: AdoQuery içinde progressbar kullanımı hakkında - emrekilinc1984 - 06-11-2016

(05-11-2016, Saat: 21:31)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Merhaba,
Öncelikle ProgressBar'ın Visible özelliğini tasarım ekranında  False  yapın.  Böylece  uygulama  çalıştığında  ProgressBar  görünmeyecektir.
Kayıt  işlemine  başlamadan, ProgressBar'ı  göstererek,  pozisyon  ve  max  değerlerini  belirleyin. finally  bölümünde  ise  visible  özelliğini   False  yapın.
örnek verecek  olursak

//Diğer işlemler
ProgressBar1.visible := True;
ProgressBar1.max := KaydedeceğinizKayitSayisi;
ProgressBar1.Position := 0;
Try
//Kayıt işlemleri döngüsü
 ProgressBar1.Position := işlenenkayitSayisi;
Application.ProcessMessages;
 //Kayıt işlemleri sonu
Finally
 ProgressBar1.visible :=False;
End;

İyi çalışmalar

teşekkürler hocam.