N
ntjrr
Unregistered / Unconfirmed
GUEST, unregistred user!
关键之处,是从DELPHI中写入到FR3,想要实现的目的:在FR3中的这个MEM0不让用户修改
下列代码是从340340富翁笔记中取得,基本上实现了我的意思,但他只能在第一页上写,其它页上如何一样写入呢?
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;
frxReport1.ShowReport();
end;
下列代码是从340340富翁笔记中取得,基本上实现了我的意思,但他只能在第一页上写,其它页上如何一样写入呢?
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;
frxReport1.ShowReport();
end;