Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Вниздолгий процесс... Найти похожие ветки
← →
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]АУ! Куда всиавлять !!!!!!
← →
Romkin (2002-09-05 17:56) [7]в Initialize секцию того модуля, откуда будет доступна переменная
← →
koks (2002-09-06 10:43) [8]а в OnCreate нельзя...
← →
koks (2002-09-06 13:40) [9]АУ!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c