QRImage.Create(QRBand3);
改成
QRImage:=TQRImage.Create(QRBand3);

解决方案 »

  1.   

    程序是可以通过了,不好意思犯了无知的错误。但是我用下面这段代码在预览是却看不到图。这是为什么?
    procedure TForm1.BitBtn1Click(Sender: TObject);
    var QRImage: TQRImage;
    ppImage: TppImage;
    begin
    QRImage:=tQRImage。Create(QRBand3);
    QRImage.ParentReport:=QuickRep1;
    QRImage.Enabled:=true;
    QRImage.visible:=true;
    QRImage.Width:=300;
    QRImage.Height:=300;
    QRImage.Left:=10;
    QRImage.Top:=100;
    QRImage.Picture.LoadFromFile('c:\1.bmp');
    QuickRep1.Preview;
    end;
      

  2.   

    Preview 之前, QuickRep1.DataSet 打开了吗?
      

  3.   

    还有就是, 怎么不设置 QRImage.Parent := QRBand3;