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

Комментарии

• -=Den=-

  April 2010 отредактировано 05:05

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

  April 2010 отредактировано 05:05

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