Обновление контролов формы

[randrews]

100/WOList.COUNT

замени на 10000/WOList.COUNT

Цитата:

Сообщение от Neovision

CurrForm.Update я тоже пробовал - не помогает. Можно как альтернативу использовать Dialog, но тогда диалоговое окно будет перекрываться системными сообщениями навижна.

UPDATECONTROLS (Form) и прочее не причем. Смотри причину в начале сообщения.

Пример:
i := 0;
num := r.count;
r.find('-');
repeat
i := i+1;
Progress := ROUND(i /num * 10000,1);
ProgressBox.UPDATE(2,Progress);
until r.next = 0;