activeform 中调用报表QuickReport报错,帮忙看看(50分)

  • 主题发起人 主题发起人 willyxia
  • 开始时间 开始时间
W

willyxia

Unregistered / Unconfirmed
GUEST, unregistred user!
写了个activeform(名成为:testX),还有一个普通的QuickReport(名称为:QRForm1),
在testX上有一个按钮,click事件为:
procedure TtestX.button1Click(Sender: TObject);
begin
QRForm1 := TQRForm1.create(self);
QRForm1.print;
end;

执行时报错:
Access Violation at address 08014C8B in module 'szfa.ocx'. Read of address 00000054.
我这样新开一个form1,
form1 := Tform1.create(self);
form1.show;
没问题,但是用delphi的报表quickreport就报错.
 
procedure TtestX.button1Click(Sender: TObject);
begin
QRForm1 := TQRForm1.create(nil);
QRForm1.print;
end;

procedure TtestX.button1Click(Sender: TObject);
begin
QRForm1 := TQRForm1.create(Application);
QRForm1.print;
end;
試試
 
后退
顶部