долгий процесс...

← →
koks © (2002-09-05 12:33) [0]

Уважаемые мастера, подскажите один маленький вопросик

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

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... В этом случае песочные часы не отображаются... хотя комментарий появляется и исчезает исправно.
Не пойму, как быть - я уже все возможные перестановки испробовал.

← →
Виктор Щербаков © (2002-09-05 12:36) [1]

Попробуй сразу после смены курсора Application.ProcessMessages

← →
Smithson © (2002-09-05 12:46) [2]

SQL запросы сами менют курсор на свой (песочные часы с подписью SQL), а потом восстанавливают crDefault. после опен меняй курсор еще раз.

← →
koks © (2002-09-05 13:00) [3]

2 Виктор Щербаков. Я уже так пробовал... воз и поныне там.

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

← →
Romkin © (2002-09-05 13:14) [4]

Попробуй
hHourCursor := LoadCursor(0, IDC_WAIT); - Это однократно, в initialize

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

← →
koks © (2002-09-05 14:13) [5]

2 Romkin- в Initialaize чего....
у меня MDI - приложение. Куда конкретно вставлять ?....

← →
koks © (2002-09-05 17:43) [6]

АУ! Куда всиавлять !!!!!!

в Initialize секцию того модуля, откуда будет доступна переменная

а в OnCreate нельзя...

АУ!

долгий процесс... Найти похожие ветки