progressbar kontrolü

[ekazmaci]

merhabalar
formdaki bir butona basıldığında dtamodule içerisindeki bir procedure 'ü çağırıyorum.Procedure içerisinde
While Not Query1.Eof do
...
...
şeklinde bir döngü mevcut.
Bu döngüdeki değerin her artışında Form1. üzerindeki Progressbar'ın değerinin 1 artmasını istiyorum.
Query1.Next;
yordamından önce Form1.Progressbar1.Position:=Query1.Recno;
yaptığımda veya bir değişken tanmlayıp döngü içersinde değerini artırıp yine Query1.Next;yordamından önce
Form1.Progressbar1.Position:=değişken; olarak atadığımda Access Violation mesajı ile karşılaşıyorum.Bir yerde eksik birşey mi yapıyorum? yada böyle bir atama şansım yok mu?
Teşekkür ederim.

[mussimsek]

Merhaba,

progressbar'ın max diye bir özelliği var. Default olarak 100'dür. Sizin kayıt sayınız 100'ü geçtiği anda, position'a 101 atadığınız anda hata verir. max 100 olabiliyor çünki.

ProgressBar1.Max := Query1.RecordCount;

atamasını yapıp, Max değerini kayıt sayısına eşitleyin.

Kolay gelsin.

[gkimirti]

datamodulun create yordamında cagrılıyor yada table/query nesnesinin bir olayında cagrılıyor ve de ana formun datamodulden sonra create ediliyorsa create edilmemis nesneye ulasmaya calısyorsun demektir
o zaman ilk once datamodulunu create et
project/options dan