Закрытие Mdi приложения

отредактировано April 2010 Раздел: FastReport 4.0
Пример MDI Designer.
Создаётся дочернее окно дизайнера, вносятся изменения в отчёт. Не сохраняя изменения, закрываем приложение. Если ответить "да" на предложение сохранить, то спросит и второй раз. Как обойти?

Комментарии

  • отредактировано 16:49
    Попробуйте заменить код в TMainForm.FormClose на :
    procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
    var
      idx: Integer;
    begin
      for idx := 0 to FReportList.Count - 1 do
      begin
        TfrxDesignerForm(FReportList.Report[idx].Designer).Modified := False;
        TfrxDesignerForm(FReportList.Report[idx].Designer).Close;
      end;
      Action := caFree;
    end;
    
  • отредактировано 16:49
    Да, помогло!
    А, ведь, пробовал, но так:
    TfrxDesignerForm(FReportList.Report[idx].Designer).Close;
    TfrxDesignerForm(FReportList.Report[idx].Designer).Modified := False;
    наоборот не додумался).

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

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