![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ProgressBar
Ross © (2001-12-24 21:58:00)Есть база данных. Добавлении в Treeview данных из поля происходит за несколько секунд. Хотелось бы связать это все с ProgressBar-ом. Помучался, но не знаю как. Знаю что просто. Подскажите.
Спасибо.
Ross (2001-12-25 11:03:00) [1]To Vadim
Interesno, poprobuiu. Spasibo
To All
Spasibo
Vadim (2001-12-25 10:06:00) [2]Вот другой подход, простой и эффектный: принудительно перерисовываешь дерево каждый раз, когда добавляется новый корневой узел (или узел первого уровня, если корневой один). Из TreeView получается своеобразный ProgressBar.
Deniz (2001-12-25 07:10:00) [3]...
ProgressBar.Position := i;
DataSet.Next;
Application.ProcessMessages
PS:Такой FOR использовать не логично, лучше while not DataSet.eof do
SergVlad (2001-12-24 22:38:00) [4]Получить N := DataSet.Recordcount; (TQuery или TTable или..)
ProgressBar.Max := N;
В цикле
for i:= 1 to N do
..
ProgressBar.Position := i;
DataSet.Next;
..