Как сделать программно изменения в отчете при открытии дизайнера

Ingword · March 2016

Все отчеты храню в БД.
У меня есть функция импорта отчетов:

 if OpenDialog.Execute then
    begin
      frxReport.LoadFromFile(OpenDialog.FileName);
      FIsNewReport := True;
      frxReport.DesignReport();
    end;

Она нормально работает и открывает отчет в дизайнере.
Функции сохранения я переопределил(для записи в БД), хотелось бы что бы после открытия отчета в дизайнере он был помечен как Modified. И пользователю при закрытии дизайнера было предложено его сохранить.
Подскажите пожалуйста, как это сделать? И возможно ли вообще это сделать.

gpi · March 2016

procedure TForm1.frxDesigner1Show(Sender: TObject);
begin
  TfrxDesignerForm(Sender).Modified := True;
end;

Ingword · March 2016

gpi написал: »

procedure TForm1.frxDesigner1Show(Sender: TObject);
begin
  TfrxDesignerForm(Sender).Modified := True;
end;

Спасибо большое, все работает. Не додумался.

Как сделать программно изменения в отчете при открытии дизайнера

Комментарии

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