Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Нафигатор по базе [D5, Paradox]

Sayan © (2002-10-04 08:55:00)
Доброго дня Мастера!

Маленький вопросик:
Есть навигатор, который управляет таблицой БД
По нажатию кнопочкки Refresh (обновить)проходит
примерно 3 минуты (большая база).
Как по включении ентой кнопочки вывести месагу типа
"Не волнуйтесь,через 3 минуты будет все OK "
И самое главное как при завершении обновления УБРАТЬ
эту месагу!!!
Подскажите пожалуйсто !!!
Заранее благодарен.

Max Zyuzin (2002-10-04 10:45:00) [1]
Да понял, что немного обшибся :) я в общем про это и написал :)

ЮЮ (2002-10-04 10:30:00) [2]
>это я для того что бы пользователь мышкой не лазил пока запрос выполняется :)

Запрос-то, как раз, и не будет выполнятся, пока модальную форму не закроешь

Max Zyuzin (2002-10-04 10:01:00) [3]
>ЮЮ © (04.10.02 09:22)
>VAleksey © (04.10.02 09:49)
%)) Ну да в общем, это я для того что бы пользователь мышкой не лазил пока запрос выполняется :)

VAleksey (2002-10-04 09:49:00) [4]
да нужно просто Show :))

ЮЮ (2002-10-04 09:22:00) [5]
>Поставте в BeforeRefresh что нить вроде
>MyDontWoryFrorm.ShowModal;

Думаю, так Refresh-а не дождаться :-)

Sayan (2002-10-04 09:21:00) [6]
> ЮЮ
Спасибо большое ЮЮ, щас пробовать буду.

ЮЮ (2002-10-04 09:19:00) [7]
.onBeforeAction - действия до выполнения команды навигатора
.onClick - после

Sayan (2002-10-04 09:18:00) [8]
> Max Zyuzin
OK! Благодарю Max Zyuzin, попробую.

Max Zyuzin (2002-10-04 09:12:00) [9]
У датасета, которым пользуетесь (Query, Table) есть события BeforeRefresh и AfterRefresh
Поставте в BeforeRefresh что нить вроде
MyDontWoryFrorm.ShowModal;
Ну а на AfterRefresh
MyDontWoryFrorm.Close;

Где MyDontWoryFrorm - форма с лейблом, где написано "усе у норме, не суетитесь"
А вообще в эти события засовываейте что хотите можно курсор сделать в виде часиков
Screen.Cursor := crHourGlass;
Ну и потом
Screen.Cursor := crDefault;

Sayan (2002-10-04 09:10:00) [10]
> ЮЮ
Спасибо за ответ
Да приувеличил конечно (сильно) -10 секунд

ЮЮ (2002-10-04 09:03:00) [11]
А когда она 3 минуты открывается, пользователь не нервничает?

ЮЮ (2002-10-04 09:01:00) [12]
>По нажатию кнопочкки Refresh (обновить)проходит
примерно 3 минуты (большая база).

Да за 3 минуты можно таблицу записать с 0 до максимального размера :-)

Наверх

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