在FastReport4中,如何垂直对齐3个备注行,如果第二个备忘录行为空,则剩余的2个备注行可以自动对齐?

时间:2013-04-27 09:58:08

标签: delphi vertical-alignment delphi-xe3 fastreport

在Delphi XE3中使用FastReport4。

我有3个备注字段,如图1所示,我想如果其中一个字段是空的,它们可以自动垂直对齐,但我的问题是让我们说如果memo2为空我得到的图2中的空是空的memo1和memo3之间的空间,我试过伸展,没有用的转换模式,我希望它像图3,所以任何想法如何做到这一点?

感谢。

Fig-1 Fig-2 Fig-3

1 个答案:

答案 0 :(得分:2)

在打印事件之前,您必须在Delphi中使用下面的代码检查那个备忘录是否为空:

if TfrxMemoView(frxReport.FindObject('Memo2')).Text = '' then
  TfrxMemoView(frxReport.FindObject('Memo3')).Top := TfrxMemoView(frxReport.FindObject('Memo2')).Top;