怎样把窗体的caption赋值给fastreport的memo?

解决方案 »

  1.   


      TfrxMemoView(frxReport1.FindObject('memo1')).memo.text:= form1.Caption;
      frxreport1.ShowReport;
      

  2.   

    完美解决
    procedure TForm1.Button1Click(Sender: TObject);
    var mymemo: TfrxMemoView;
    begin
      frxReport1.Clear;   //此句可有可无,关键在于你自己想不想清空页面内容
      frxReport1.LoadFromFile('test.fr3');
      //下边的Page1是指以第一页本身作为动态创建的FR的Memo的容器,当然你也可以
      //自己指定你要放置该Memo的容器,比如MasterData1等
      mymemo := TfrxMemoView.Create(frxReport1.FindObject('Page1'));
      mymemo.Name := 'MemoTest';
      mymemo.Text := 'Memo的显示内容!';
      mymemo.AutoWidth:=True;  //此处是为Memo指定是否允许自动伸展宽度
      mymemo.WordWrap:=True;  //指定伸展方向
      mymemo.Width := 60;   //自此开始的四行Width、Height、Top、Left属性
      mymemo.Height := 16;  //一定要设置,至于数值可以为你
      mymemo.Top:=100;     //所要放置的地方
      mymemo.Left:=200;
      mymemo.font.size:=16 //字体大小
      frxReport1.ShowReport();
    end;
      

  3.   

    TfrxMemoView.Create(frxReport1.FindObject('Page1')); 
    这里就不如你楼上的完美.呵呵
      

  4.   

    1、楼上的办法
    或者
    2、定义变量,在report的getvalue里进行赋值处理