5,928
社区成员




TfrxPictureView(frxReport1.FindObject('memo1')).Height:=TfrxMemoView(TfrxPictureView(frxReport1.FindObject('memo1'))).CalcHeight;
frxReport1.ShowReport();
因为我memo1是固定的内容,这样是可行的。如果是动态的数据可能不应该这样,你可以试试方式二
方式二:
在报表编辑里,找到memo1,填写控件对应的AfterData代码如下:
procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
memo1.height:= memo1.CalcHeight;
end;
原则就是在给Picture1指定TOP前,给memo1的高度修改为CalcHeight就可以了。
procedure Footer1OnAfterCalcHeight(Sender: TfrxComponent);
begin
footer1.height:=memo1.height;
end;
这样,当重新设计一下footer1的高度为memo1的高度。然后图片因为是以右下角定位的,也会自动改变位置的。
我的设计: