怎样把窗体的caption赋值给fastreport的memo?
解决方案 »
- 在footer band的[SUM(<yingshouzhangkuan_dy."收款计费吨">,MasterData1)]不起作用,没任何显示
- 如何更改工程的图标?
- 在dbgird里面随便点一行的某一列,然后在edit里面显示了。在edit里面修改后怎么保存这个修改?
- DELPHI 开发群大量招人!!!UP有分
- ado sybase delphi6 问题
- 讨论接分:dephi 如何实现线程池(ThreadPool)的功能
- 我遇到一个很奇怪的现象,请高手解答?(在线等待!!!)
- bowhell(),真是多谢你了,问题解决了,领取你的1000分,呵呵:)(2)
- 怎么读其它窗口内的edit,memo,label等控件的值?
- 给定初始字符为“A”,数字为6,请问delphi中那个函数能生成“AAAAAA”?
- 感知控件问题,两个DBCheckBox,?
- 散分--变身时结贴.
TfrxMemoView(frxReport1.FindObject('memo1')).memo.text:= form1.Caption;
frxreport1.ShowReport;
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;
这里就不如你楼上的完美.呵呵
或者
2、定义变量,在report的getvalue里进行赋值处理