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

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

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

долгий процесс... [D5, Win95/98]

koks © (2002-09-05 12:33:00)
Уважаемые мастера, подскажите один маленький вопросик

Есть две процедуры:

procedure TfmMain.StartLongProcess(Comment: string);
begin
Screen.Cursor := crHourGlass;
StatusBar.Panels[2].Text := Comment;
Application.ProcessMessages;
end;

procedure TfmMain.FinishLongProcess;
begin
Screen.Cursor := crDefault;
StatusBar.Panels[2].Text := "";
end;

В программе из разных мест запускаются различные "длинные" процессы, во время которых отображаестя комментарий в StatusBar-е и курсор превращается в песочные часы:

StartLongProcess("Ждите...");

<< длинный процесс >>

FinishLongProcess;

Так вот, все работает за исключение случая, когда этот длинный процесс заключается в вывоплении TIBQuery.Open... В этом случае песочные часы не отображаются... хотя комментарий появляется и исчезает исправно.
Не пойму, как быть - я уже все возможные перестановки испробовал.

koks (2002-09-06 13:40:00) [1]
АУ!

koks (2002-09-06 10:43:00) [2]
а в OnCreate нельзя...

Romkin (2002-09-05 17:56:00) [3]
в Initialize секцию того модуля, откуда будет доступна переменная

koks (2002-09-05 17:43:00) [4]
АУ! Куда всиавлять !!!!!!

koks (2002-09-05 14:13:00) [5]
2 Romkin- в Initialaize чего....
у меня MDI - приложение. Куда конкретно вставлять ?....

Romkin (2002-09-05 13:14:00) [6]
Попробуй
hHourCursor := LoadCursor(0, IDC_WAIT); - Это однократно, в initialize

SetCursor(hHourCursor); - установит часики

koks (2002-09-05 13:00:00) [7]
2 Виктор Щербаков. Я уже так пробовал... воз и поныне там.

2 Smithson А курсор вообще не меняется... Остается стрелка.
Зачем менять курсор после Open. Мне нужно, чтобы песочные часы были ВО ВРЕМЯ Open - а.

Smithson (2002-09-05 12:46:00) [8]
SQL запросы сами менют курсор на свой (песочные часы с подписью SQL), а потом восстанавливают crDefault. после опен меняй курсор еще раз.

Виктор Щербаков (2002-09-05 12:36:00) [9]
Попробуй сразу после смены курсора Application.ProcessMessages

Наверх

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