xe5 frxReport1.DesignReport(); 后没有任何响应，看别人也有这样问的，请教！

Question

xe5中 frxReport1.DesignReport();没有任何响应，百度发现也有人问同样的问题，请教高手，怎么才能弹出那个设计界面

Answer 1

使用 TGRDesigner来设计报表

Answer 2

设计报表窗体代码
unit uReportDesigner;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, grdesLib_TLB, OleServer, grproLib_TLB;type
  TfrmReportDesigner = class(TForm)
    GRDesigner1: TGRDesigner;
    GridppReport1: TGridppReport;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure GRDesigner1SaveReport(Sender: TObject);
    procedure GRDesigner1OpenReport(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    strReportFile:string;
  end;var
  frmReportDesigner: TfrmReportDesigner;implementation{$R *.dfm}procedure TfrmReportDesigner.FormShow(Sender: TObject);
begin
  GridppReport1.LoadFromFile(strReportFile);
  GRDesigner1.Reload;
  GRDesigner1.DefaultAction := true;
end;procedure TfrmReportDesigner.FormCreate(Sender: TObject);
begin
    GRDesigner1.DefaultInterface.Report := GridppReport1.DefaultInterface;
end;procedure TfrmReportDesigner.GRDesigner1SaveReport(Sender: TObject);
begin
  GRDesigner1.Post();
  GridppReport1.SaveToFile( self.strReportFile  );
  GRDesigner1.DefaultAction := false;
end;procedure TfrmReportDesigner.GRDesigner1OpenReport(Sender: TObject);
begin
  GRDesigner1.DefaultAction := false;
end;end.调用设计报表窗体代码
  if frmReportDesigner=nil then
  begin
    frmReportDesigner:=TfrmReportDesigner.Create(self);
  end;
  frmReportDesigner.strReportFile:=self.strReportFile;
  frmReportDesigner.ShowModal;
  freeandnil(frmReportDesigner);

Answer 3

设计报表窗体代码
unit uReportDesigner;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, grdesLib_TLB, OleServer, grproLib_TLB;type
  TfrmReportDesigner = class(TForm)
    GRDesigner1: TGRDesigner;
    GridppReport1: TGridppReport;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure GRDesigner1SaveReport(Sender: TObject);
    procedure GRDesigner1OpenReport(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    strReportFile:string;
  end;var
  frmReportDesigner: TfrmReportDesigner;implementation{$R *.dfm}procedure TfrmReportDesigner.FormShow(Sender: TObject);
begin
  GridppReport1.LoadFromFile(strReportFile);
  GRDesigner1.Reload;
  GRDesigner1.DefaultAction := true;
end;procedure TfrmReportDesigner.FormCreate(Sender: TObject);
begin
    GRDesigner1.DefaultInterface.Report := GridppReport1.DefaultInterface;
end;procedure TfrmReportDesigner.GRDesigner1SaveReport(Sender: TObject);
begin
  GRDesigner1.Post();
  GridppReport1.SaveToFile( self.strReportFile  );
  //GridppReport1.SaveToFile( 'd:\2.grf'  );
  GRDesigner1.DefaultAction := false;
end;procedure TfrmReportDesigner.GRDesigner1OpenReport(Sender: TObject);
begin
  GRDesigner1.DefaultAction := false;
end;end.

Answer 4

这是Grid++Report吧？

Answer 5

搞错了，把fastreport看错成grid++了

Answer 6

Fastreport设计报表
frxReport1.DesignReport;
在xe2中没有问题，
xe5还没用过

Answer 7

frxReport1.DesignReport();后再
frxReport1.ShowModal;

Answer 8

窗口中没有放入TFxDesigner组件。

Answer 9

XE系列中自带的FastReport是FR给EMB定制的，属于Lite版。只有完整版的才有DesignReport功能。

Answer 10

为什么我没有TFxDesigner组件