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.

← →
Ross (2001-12-25 11:03) [4]

To Vadim
Interesno, poprobuiu. Spasibo

To All
Spasibo

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