Engine.running

отредактировано November 2008 Раздел: FastReport 4.0
Delphi 2009 Fr 4.7.8

Есть главная форма (DBGrid) + форма данных + фрейм preview.

По событию TableAfterScroll выполняется в фрейме процедура EnterFrame:
procedure TframePreview.EnterToFrame;
begin
  frxReport1.Clear;
  frxReport1.LoadFromFile('MyReport.fr3');
  ....
  frxReport1.ShowReport;

    repeat sleep(100);  beep;
    until not(frxReport1.Engine.Running);
end;

Сделал так, ошибка теперь не появляется, но сам декримент...:
  j:=10;
    repeat sleep(100);  beep; dec(j);
    until not(frxReport1.Engine.Running)or(j<0)

При быстром перемещении по DBGrid приложение виснет в бесконечном цикле. Если убрать цикл, то выскакивают многократные ошибки, но продолжать работать можно. Похоже на то что Runing возвращает False, а отчёт ещё активен.

Подскажите как избавиться от этого (выпадение ошибок при перемещении по DBGrid)?

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.