＋设为首页 ＋添加到收藏夹
procedure TQRMDForm.QuickRep1Preview(Sender:TObject)
begin
with TMyPreview.Create(application)do
begin
QRMPreview1.QRPrinter:=TQRPrinter(Sender);
CurRep:=QuickRep1; ／／这句是干什么的？
Show；
end
end
这是自定义报表预览窗体中的一段代码，TQRMDForm是需要预览的报表所在的窗体
把它转化成bcb代码怎么写，谢谢。
void __fastcall TQRMDForm.QuickRep1Preview(TObject Sender)
{
TMyPreview *a=new TMyPreview(Application);
a->QRMPreview1->QRPrinter=(TQRPrinter*)Sender;
a->CurRep=QuickRep1; ／／这句是干什么的？
a->Show()；
}
