Как правильно рефрешить?

← →
syte_ser78 © (2005-08-26 09:20) [0]

Есть форма которую вызываю методом showmodal
По онклику одной из кнопок обновляю базу и вывожу в лабел имя обновленной записи

while not tbl_update.Eof do
begin
........тут собсно обновляю
ProgressBar1.Position:=ProgressBar1.position+1;
frm_update.Form4.Label4.Caption:=тут_пишу
label4.refresh;
tbl_update.Next;
end;

Проблемма в том что примерно секунд через пять обновления, лабел становится белый в кепшине формы-"программа не отвечает", курсор становится часами. Но обновление продолжается - прогрессбар ползет.

В чем ошибка?

← →
alex_*** (2005-08-26 09:42) [1]

Application.ProcessMessages давай через какое-то кол-во итераций

Потому что не обрабатываешь сообщения Виндоус, для системы ты завис. Ты еще проведи поверх окном другого приложения, совсем инфаркт получишь.

Как правильно рефрешить? Найти похожие ветки