fastreport中能否实现如下功能?

blueshu 2005-11-03 12:50:27
怎样在fastreport中实现下面的功能
findobject('memo1').memo:='123'
不是在delphi中写
...全文
160 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
blueshu 2005-11-07
  • 打赏
  • 举报
回复
blueshu 2005-11-04
  • 打赏
  • 举报
回复
blueshu 2005-11-03
  • 打赏
  • 举报
回复
多谢各位的回复!
我说的不是在delphi中实现
g961681的明白点我的意思,可是我要设置的是找到的t.memo的文本,不是对给定的memo18.memo赋值的
g961681 2005-11-03
  • 打赏
  • 举报
回复
t := Self.FindObject('Memo18');
if t = null then
begin
Memo18.FillColor := clBlue;
Memo18.memo := '没找到';
end
else
begin
Memo18.FillColor := clRed;
Memo18.memo := '找到了';
end;
好象测试通过~~~~~~~~
chuchu 2005-11-03
  • 打赏
  • 举报
回复
如果是在fastreport脚本里面写就不用findobject了,运行反而慢。
直接用memo1.memo.text:='123'。
看它的源码你就会发现,实际上memo1.memo就是一个Memo,自然也有Memo.Lines.Add的功能。
g961681 2005-11-03
  • 打赏
  • 举报
回复
呵呵~~~~~
试了,不行~~~~~~
g961681 2005-11-03
  • 打赏
  • 举报
回复
在http://dev.csdn.net/article/63/63345.shtm找到的
好象能用。
g961681 2005-11-03
  • 打赏
  • 举报
回复
FR 对象并不是一个组件. 但使用 TfrReport.FindObject 方法可以通过对象名称找到该对象。
var
t: TfrMemoView;
begin
t := TfrMemoView(frReport1.FindObject(‘Memo1‘));
if t <> nil then
t.Memo.Text := ‘FastReport‘;
end;


//http://dev.csdn.net/article/63/63345.shtm
DG_1 2005-11-03
  • 打赏
  • 举报
回复
在FASTREPORT中點擊PAGE1的事件,雙擊ONBEFOREPRINT然後在CODE中

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
memo1.text:='123';
end;

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧