Как программно закрыть Preview?

отредактировано 01:45 Раздел: FastReport 4.0
Сначала делаю так
frxDBDataset1->DataSet=CRC->DataSet;
   frxReport1->PrintOptions->PrintMode=pmJoin;
   frxReport1->PrintOptions->PrintOnSheet=9;
   frxReport1->ShowReport(true);

Потом идет обработка
void __fastcall TForm1::frxReport1AfterPrintReport(TObject *Sender)
{
for(int i=0;i<LIMITForm->DataSet->RecordCount;i++){
    LIMITKA2->SetParam("ID", Variant(LIMITForm->DataSet->FieldByName("ID")->AsInteger));
    LIMITKA2->Execute();
    LIMITForm->DataSet->Next();
   }
Form1->session->Commit();
}
Вот и хочется после Form1->session->Commit(); закрыть Preview
За ранее спасибо

Комментарии

  • gpigpi
    отредактировано 01:45
    В Delphi это будет примерно так:
    if frxReport1.PreviewForm <> nil then
    TfrxPreviewForm(frxReport1.PreviewForm).Close;

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

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