VPF::ProgressBar для ADOQuery - Форум программистов

Novichek27

Дата 7.3.2011, 22:36 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: нет
Всего: 1

Привет всем участникам форума!

На форме есть кнопка при нажатии которой выполняются процедуры заполнения таблиц из Excel в Access:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Button1Click(Self); //заполнение 1-ой таблицы
Form3.Button1Click(Self); //заполнение 2-ой таблицы
Form4.Button1Click(Self); //заполнение 3-ей таблицы
Form5.Button1Click(Self); //заполнение 4-ой таблицы
Form6.Button1Click(Self); //заполнение 5-ой таблицы
end;

Как сделать ProgressBar для этой процедуры. smile

Данкинг

Дата 7.3.2011, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Н-да.

Ну, можно сделать просто и тупо:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
 gauge1.Maxvalue:=6;
 gauge1.Progress:=gauge1.Progress+1;
 application.processmessages;
 Form2.Button1Click(Self); //заполнение 1-ой таблицы
 gauge1.Progress:=gauge1.Progress+1;
 application.processmessages;
 Form3.Button1Click(Self); //заполнение 2-ой таблицы
 gauge1.Progress:=gauge1.Progress+1;
 application.processmessages;
 Form4.Button1Click(Self); //заполнение 3-ей таблицы
 gauge1.Progress:=gauge1.Progress+1;
 application.processmessages;
 Form5.Button1Click(Self); //заполнение 4-ой таблицы
 gauge1.Progress:=gauge1.Progress+1;
 application.processmessages;
 Form6.Button1Click(Self); //заполнение 5-ой таблицы
end;

--------------------

There's nothing left but silent epitaphs.

salik

Дата 8.3.2011, 22:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 28.1.2011

Репутация: нет
Всего: 1

Можно заполнять таблицы в отдельном потоке, а отображать процесс используя критические секции. TCriticalSelection описан в модуле SyncObj

northener

Дата 9.3.2011, 03:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Данкинг @ 7.3.2011, 23:27

)

Н-да. smile Ну, можно сделать просто и тупо:

Теоретически ProcessMessages тут излишен. Автор ведь только желал обновления ПрогрессБара, а не реагирования на все сообщения Windows. Достаточно вызывать напрямую функции перерисовки ПрогрессБара.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »