Criando relatório FastReport em tempo de execução

[Ilano 0]

Olá pessoal,

 

Utilizo o Delphi 7 e preciso saber como crio o componente frxReport em tempo de execução

frxReport.Create??????

 

Grato,

 

Ilano.

Bom, já tive algum progresso, fiz o seguinte código:

 

 

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
pReport : TfrxReport;
I : Integer;
begin
pReport := TfrxReport.Create(Self);
pReport.Report.DataSets.Clear;

For I:=0 To pReport.Report.DataSets.Count - 1 Do
pReport.Report.DataSets.Delete(I);

pReport.Report.SaveToFile('teste.fr3');
pReport.Report.LoadFromFile('teste.fr3');
pReport.Report.DataSets.Add(frxDBDataset1);

for I := pReport.Report.DataSets.Count - 1 downto 1 do
Begin
pReport.Report.DataSets.Delete(I);
End;

pReport.Report.DataSetName:='';
pReport.DesignReport(True, False);

end;

 

Contudo, não traz nenhuma página e preciso que seja criada uma página em branco já com o nome passado via código (teste.fr3).

 

Alguma sugestão?

[Ilano 0]

Consegui! Como é só para o que preciso, o código ficou assim:

 

 

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
pReport : TfrxReport;
I : Integer;
begin
pReport := TfrxReport.Create(Application);
pReport.Clear;
pReport.DataSets.Add(frxDBDataset1);
pReport.FileName:='teste.fr3';
pReport.DesignReport(True, False);

end;

 

Encontrei algo amplo aqui.