打印按钮触发
procedure TZLBJ.RzBitBtn4Click(Sender: TObject);
begin
frxreport1.Clear;
frxReport1.LoadFromFile(ExtractFilePath(application.ExeName)+ 'XSDA.fr3');
TfrxPictureView(frxReport1.FindObject('Picture1')).Picture:=Image1.Picture;
frxReport1.ShowReport();
end;
为什么不行
picture1为放的picture object;
procedure TZLBJ.RzBitBtn4Click(Sender: TObject);
begin
frxreport1.Clear;
frxReport1.LoadFromFile(ExtractFilePath(application.ExeName)+ 'XSDA.fr3');
TfrxPictureView(frxReport1.FindObject('Picture1')).Picture:=Image1.Picture;
frxReport1.ShowReport();
end;
为什么不行
picture1为放的picture object;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货