Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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;
..


Наверх

Титульная страница Поиск, карта сайта Написать письмо