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;