Перенос страницы из отчета в отчет

Fearless

Подскажите как программно перенести Page со всеми элементами на нем из одного отчета в другой. Если просто Parent у страницы меняю и уничтожаю первоначальный отчет владелец, то страница тоже уничтожается.

gpi

Как-то так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxClass;

type
  TForm1 = class(TForm)
    frxReport1: TfrxReport;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var Report: TfrxReport;
    Page: TfrxReportPage;
    Subreport: TfrxSubreport;
    MasterData: TfrxMasterData;
    i: integer;
    c: TfrxComponent;
begin
    Report:=TfrxReport.Create(Form1);
    Report.LoadFromFile('subreport.fr3');
    Page:=TfrxReportPage.Create(nil);
    Page.AssignAll(Report.Pages[1]);
    Page.Parent:=frxReport1;
    Page.CreateUniqueName;
    for i:=0 to Page.AllObjects.Count-1 do
      begin
        c:=Page.AllObjects.Items[i];
        c.CreateUniqueName;
      end;
    MasterData:=TfrxMasterData(frxReport1.FindObject('MasterData1'));
    Subreport:=TfrxSubreport.Create(MasterData);
    Subreport.CreateUniqueName;
    Subreport.SetBounds(0, 0, 100, MasterData.Height);
    Subreport.Page:=Page;
    Report.Free;
    frxReport1.ShowReport();
end;

end.

Этот код вставляет отчёт, как вложенный, но в нём Вы найдёте то, что Вам нужно

Fearless

gpi написал: »

Этот код вставляет отчёт, как вложенный, но в нём Вы найдёте то, что Вам нужно

Спасибо большое, как раз то, что надо было. Как раз и надо было вставить Subreport-ом