如何创建在程序中动态创建一个TQRImage控件? QRImage.Create(QRBand3);改成QRImage:=TQRImage.Create(QRBand3); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 程序是可以通过了,不好意思犯了无知的错误。但是我用下面这段代码在预览是却看不到图。这是为什么?procedure TForm1.BitBtn1Click(Sender: TObject);var QRImage: TQRImage;ppImage: TppImage;beginQRImage:=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; Preview 之前, QuickRep1.DataSet 打开了吗? 还有就是, 怎么不设置 QRImage.Parent := QRBand3; 诚聘:Delphi程序员(北京) 我用FastReport遇到的奇怪现象,大家看看!!! 春节快到了,反对某些部门利用春运涨价啊 XP下,PC喇叭不能发声 用InstallShield如何安装COM+组件 100分的问题,请教我 怎样判定11个TCheckBox组件中,哪个是最后选中的? ADOQuery的一个小问题 在线等候 有关midas,ado,dcom编程的问题 当打印内容超出一页的范围时,我怎么控制换页? 怎么忽略空格字符 110分了,高人请进!
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;