调用报表窗口

我有两个FORM及FORM1、FORM2，FORM2是报表窗口，放入了QuickRep组件。FORM1调用FORM2的代码如下：  
  var  
        tcType:TFormClass;  
        f:TForm;  
        frmName:String;  
  begin  
        frmName:='Tform2';  
        tcType:=TFormClass(FindClass(frmName));  
        Application.CreateForm(tcType,f);  
        f.showmodal;  
        f.Free;  
  end;  
  如果把f.showmodal写为f.QuickRep1.PreviewModal就出错，请帮助解决这个问题。    
     
  问题点数：20、回复次数：5Top

1 楼WnEunfn（捡来的ID）回复于 2002-08-24 11:08:32 得分 0

笨方法：  
  f.showmodal  
  在f.oncreate事件中f.QuickRep1.PreviewModal.Top

2 楼yzykjh（言子儿）回复于 2002-08-24 11:20:05 得分 0

可退出PreviewModal后，F是SHOW的。Top

3 楼ptpa（古月西西）回复于 2002-08-24 11:49:51 得分 0

本办法，在f弹出后在进行QUICKREP的预览  
  （2）  
  with   f   do  
  begin  
  showmodal;  
  quickrep1.preview;  
  end  
  Top

4 楼jyqkr（酷鱼）回复于 2002-08-24 19:23:41 得分 15

f.QuickRep1.Preview;       就行Top

5 楼adventurezl（林）回复于 2002-08-24 20:16:32 得分 5

var  
        tcType:TFormClass;  
        f:TForm;  
        frmName:String;  
  begin  
        frmName:='Tform2';  
        tcType:=TFormClass(FindClass(frmName));  
        Application.CreateForm(tcType,f);  
        f.visible:=false;  
        f.QuickRep1.Preview;        
        f.Free;  
  end;  
  Top

相关问题

• frmname
• tctype
• quickrep
• tformclass
• previewmodal
• showmodal
• tform
• preview
• form

• 帖主：yzykjh
• jyqkr
• adventurezl

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载