对镜弹箜篌

摘要： procedure TForm4.frxReport1BeforePrint(Sender: TfrxReportComponent);var obj: TObject;begin obj := Sender.FindObject('Picture1'); if obj <> nil then TfrxPictureView(obj).Picture.Assign(img1.Picture);end;procedure TForm4.frxReport1GetValue(const VarName: string; var Value: Variant);begin 阅读全文