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

AlexCoRu

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

-=Den=-

Попробуйте заменить код в 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;

AlexCoRu

Да, помогло!
А, ведь, пробовал, но так:
TfrxDesignerForm(FReportList.Report[idx].Designer).Close;
TfrxDesignerForm(FReportList.Report[idx].Designer).Modified := False;
наоборот не додумался).