在程序中动态增加报表的文本,列,图片等元素到不同的报表位置!
谢谢了!

解决方案 »

  1.   

    动态的设置报表中的内容  
       uses  
                       RVClass,  RVProj,  RVCsStd;              
                   var  
                       MyPage:  TRavePage;  
                       MyText:  TRaveText;              
                   begin  
                       RaveProject1.Open;  
                       With  RaveProject1.ProjMan  do  begin  
                           MyPage  :=  FindRaveComponent('Report1.Page1',nil)  as  TRavePage;  //查找PAGE  
                           MyText  :=  FindRaveComponent('Text1',MyPage)  as  TRaveText; //查找TEXT  
                           MyText.Text  :=  'Boland  Delphi';  //设置报表中文本内容  
                           MyText.Color  :=  clGreen; //设置颜色  
                       end;  {  with  }  
                       RaveProject1.ExecuteReport('Report1');  
                       RaveProject1.Close;  
                   end;  
      

  2.   

    让最终用户动态的修改报表格式.  
                   with  RvProject1  do  
                               begin  
                                     DLLFile  :='D:\Rave5\Redist\RaveSolo.dll';  //如果不指定此文件则运行时会报出错  
                                     ProjectFile  :='E:\delphi\rave\files\test.rav';  //指定RAV文件  
                                     LoadDesigner  :=true;  
                                     If  Design  then  begin  
                                               If  MessageDlg(Trans('Save  changes  to  project  ')  +  
                                                                                       ProjectFile  +  '?',  
                                                                                       mtConfirmation,  
                                                                                       [mbYes,mbNo,mbCancel],0)  =  mrYes  then  
                                               begin  
                                                   Save;//保存  
                                               end;  {  if  }  
                                     end;  {  if  }  
                               end;{with}  
                 此程序在D6+Rave5.1下调试通过.在D7下就用Rave.dll
      

  3.   

    up,单页似乎没有问题,但是2多页就保存不下来了!有那位高手指教一下吧,我得是delphi7。