ProgressBar

← →
Ross © (2001-12-24 21:58) [0]

Есть база данных. Добавлении в Treeview данных из поля происходит за несколько секунд. Хотелось бы связать это все с ProgressBar-ом. Помучался, но не знаю как. Знаю что просто. Подскажите.
Спасибо.

← →
SergVlad © (2001-12-24 22:38) [1]

Получить N := DataSet.Recordcount; (TQuery или TTable или..)
ProgressBar.Max := N;
В цикле
for i:= 1 to N do
..
ProgressBar.Position := i;
DataSet.Next;
..

← →
Deniz © (2001-12-25 07:10) [2]

...
ProgressBar.Position := i;
DataSet.Next;
Application.ProcessMessages
PS:Такой FOR использовать не логично, лучше while not DataSet.eof do

← →
Vadim © (2001-12-25 10:06) [3]

Вот другой подход, простой и эффектный: принудительно перерисовываешь дерево каждый раз, когда добавляется новый корневой узел (или узел первого уровня, если корневой один). Из TreeView получается своеобразный ProgressBar.

To Vadim
Interesno, poprobuiu. Spasibo

To All
Spasibo

ProgressBar Найти похожие ветки