xe5中 frxReport1.DesignReport();沒有任何回應，百度發現也有人問同樣的問題，請教高手，怎么才能彈出那個設計界面
uj5u.com熱心網友回復：
使用 TGRDesigner來設計報表uj5u.com熱心網友回復：
設計報表表單代碼unit uReportDesigner;
interface
uses
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);
uj5u.com熱心網友回復：
設計報表表單代碼
unit uReportDesigner;
interface
uses
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.
uj5u.com熱心網友回復：
這是Grid++Report吧？uj5u.com熱心網友回復：
搞錯了，把fastreport看錯成grid++了
uj5u.com熱心網友回復：
Fastreport設計報表frxReport1.DesignReport;
在xe2中沒有問題，
xe5還沒用過
uj5u.com熱心網友回復：
frxReport1.DesignReport();后再frxReport1.ShowModal;
uj5u.com熱心網友回復：
看錯了
uj5u.com熱心網友回復：
視窗中沒有放入TFxDesigner組件。uj5u.com熱心網友回復：
XE系列中自帶的FastReport是FR給EMB定制的，屬于Lite版。只有完整版的才有DesignReport功能。uj5u.com熱心網友回復：
也遇到了這問題。求解答uj5u.com熱心網友回復：
這個正解uj5u.com熱心網友回復：
為什么我沒有TFxDesigner組件轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/80218.html
標籤：VCL組件開發及應用
上一篇：Epson Tm-U220用Esc/pos指令列印時任意放大字體
下一篇：請教大神軟體問題