Rave Report & Seite 2 dynam. erzeugen via Code

[soulies]

Hoi,

ich bekomme es einfach nicht hin in einem Rave Report mit einer vordefinierten Seite
eine neue via Code zu erzeugen.

Nach erfolglosem Suchen und Testen nun hier die Frage an Euch.

Weiß einer wie's geht / hat es schon gemacht und kann die Schritte hier posten ?

Was ich bereits versucht hatte ...

Delphi-Quellcode:

var
  MyNewPage : TRavePage ;
  ...
begin
  ...
  MyNewPage := TRavePage.Create(myReport) ;
  MyNewPage.Parent := myReport;
  MyNewPage.Name   := Format('Page%d',[2]) ;
  MyNewPage.Orientation := poDefault;
  MyNewPage.PageHeight := 11.693 ;
  MyNewPage.PageWidth  := 8.268 ;                 
  MyNewPage.Active := True ;
  ...
  // mache was mit MyNewPage
  ...
end;

laut property "Childcount"=2 wurde die Seite erzeugt aber darauf gezeichnet/geschrieben wird nicht,
auch bei "ExecuteReport" wird nur eine Seite angezeigt ...

anderer Versuch ...

Delphi-Quellcode:

begin
  ...
  MyNewPage := myReport.CreateChild(TRavePage,Format('Page%d',[2])) as TRavePage ;
  MyNewPage.Active := True ;
  ...
  // mache was mit MyNewPage
  ...

laut property "Childcount"=2 wurde die wieder Seite erzeugt aber darauf gezeichnet/geschrieben wird nicht


Was habe ich vergessen ???

Danke für die Antworten
Soulies

[Andreas Schilling]

Verbinden von Seite1 (schon vorhanden) mit Seite 2 (dynamisch erzeugt), Komponente TRVProjekt wird verwendet

Delphi-Quellcode:

...
var PageR: TRavePage;
    Rep : TRaveReport;
as begin
  ...
  // dynamische Erzeugung der Seite2
  MyNewPage := TRavePage.Create(myReport) ;
  MyNewPage.Parent := myReport;
  MyNewPage.Name := Format('Page%d',[2]) ;
  MyNewPage.Orientation := poDefault;
  MyNewPage.PageHeight := 11.693 ;
  MyNewPage.PageWidth := 8.268 ;
  MyNewPage.Active := True ;
  ...
  // mache was mit MyNewPage
  ...
  // Verbinden der Seite 1 mit neuer Seite 2
  Rep := RVProjekt1.ProjMan.findravecomponent('MeinReport', nil) as TRaveReport;
  PageR := RVProjekt1.ProjMan.findravecomponent('MeineSeite1', Rep) as TRavePage;
  PageR.gotopage := mynewpage;

  ...
  // Drucken
  RVProjekt1.ExecuteReport('MeinReport')
end;

[soulies]

funzt ... Danke

MfG
Soulies