Скачать: CL | DM;

Длительный процесс   Найти похожие ветки 

← →
Dim!S   (2003-03-27 04:15) [0]

Уважаемые мастера!
Хотелось бы грамотно реализовать такую вещь:
При обработке записей таблицы должно отображаться окно с анимированной вставкой (песочные часики вращаются) чтобы показать пользователю что программа не зависла и прочее...

Пробовал несколько вариантов, но тот или иной не устраивает (1. вызванное окно нельзя перемещать или 2. окно перемещать можно, но даже при Table.DisableControls происходит перерисовка грида, что не очень красиво ...)

Как поступить правильнее?
Спасибо.

---

← →
_Shade   (2003-03-27 06:08) [1]

Обычно, для того, чтобы показать пользователю, что программа не зависла при обработке данных, выкидывают окошко с TProgressBar и пользуют его в связке с Application.ProcessMessagges.

---

← →
Dim!S   (2003-03-27 07:02) [2]

То же самое, только другими словами :)

Вопрос несколько другой, как это грамотно реализовать, чтобы:
1. окно с индикацией можно было перемещать
2. грид не перерисовывался

P.S. Если Apllication.ProcessMessagges поместить в тело цикла, то все хорошо, за исключением перерисовки грида :(

---

← →
NAlexey ©   (2003-03-27 08:12) [3]

Попробуй так, может получится...:

procedure BlahBlah;
begin
ProgressBar1.Max := YourCount;
DBGrid1.DataSource.DataSet.AfterScroll := YourTableAfterScroll;
(* Твои действия*)
Grid.DataSource.DataSet.AfterScroll := nil;
ProgressBar1.Position := 0;
end;

procedure YourTableAfterScroll(DataSet: TDataSet);
begin
with ProgressBar1 do
Position := Position + 1;
Application.ProcessMessages;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c