Скачать: CL | DM;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c