Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.07;
Скачать: 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 вся ветка

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
6-19745
bubus
2003-02-12 18:52
2003.04.07
ISQ


4-19916
Alex
2003-02-06 14:12
2003.04.07
---|Ветка была без названия|---


4-19921
Павел
2003-02-04 09:15
2003.04.07
Запрет на сворачивание


1-19652
Фагот
2003-03-25 17:54
2003.04.07
StringList


3-19425
Liris
2003-03-18 11:39
2003.04.07
1С и Delphi ???