Ув. мастера, как на время действия пр-ры вывести окно "Ждите"?

← →
LordBTR (2004-03-10 12:05) [0]

Дело вот в чем: Есть на форме кнопка, по нажатию на которую вызывается процедура проводки документа по базе данных. И вот при входе в эту процедуру необходимо вывести окно вроде "Ждите", а перед выходом окно это убрать, а то юзвери по десять раз жмут на кнопку, а то и вовсе задачу снимают. :( Да, можно, конечно, перенести все действия в форму "Ждите", а в процедуре просто ShowModal формы, но не хотелось бы. Есть ли способ вывести окно с сообщением без прерывания выполнения процедуры?

← →
Тимохов © (2004-03-10 12:09) [1]

А в чем проблема?
Показываете информационное окошко, далее application.processmessages, далее проводка документа по базе, далее free окошку...

Пользователь будет видеть "Ждите" и, думаю, ждать.

Или вам надо сделать это асинхронно, т.е. пользователь может продолжать работать пока идет проводка документа?
Задача до конца не ясна.

← →
stelius © (2004-03-10 12:09) [2]

begin FormWait := TForm.Create(self); FormWait.Show; FormMain.Enabled := False; <действия> FormMain.Enabled := True; FormWait.Free; end;

← →
Anatoly Podgoretsky © (2004-03-10 12:10) [3]

Show

← →
LordBTR (2004-03-10 12:28) [4]

> stelius © (10.03.04 12:09) [2]

Есть один нюанс. После FormWait.Free срабатывает FormMain.OnActivate и всю картину портит, т.к. там переоткрываются запросы, а делать еще и Locate после всего этого просто не разумно. :( Как быть?

> Тимохов © (10.03.04 12:09) [1]

Если я правильно Вас понял, то application.processmessages надо вызывать в OnActivate нового окна? Или я ошибаюсь?

← →
Тимохов © (2004-03-10 12:37) [5]

> LordBTR (10.03.04 12:28) [4]

нет, application.processmessages нужен для того, чтобы перед долгой операцией на экране все перерисовалось.

← →
LordBTR (2004-03-10 12:51) [6]

> Тимохов © (10.03.04 12:37) [5]

Т.е. application.processmessages необходимо вставить в OnClick, перед вызовом нового окна?

полсле создания и показа окна

begin ... FlagWait := True; FormMain.Enabled := True; FlagWait := False; end; procedure TFormMain.OnActive(Sender: TObject); begin if not FlagWait then begin <переоткрытие запросов> end; //if end;

Ну это типа "решение в лоб", может еще как-то можно.

← →
LordBTR (2004-03-10 14:15) [9]

> stelius © (10.03.04 13:14) [8]

Да насчет флага и так было ясно, а вот насчет "еще как-то можно" стоит подумать... Вроде я где-то компонент с подобным свойством видел. Попробую найти...

Ув. мастера, как на время действия пр-ры вывести окно "Ждите"? Найти похожие ветки