我的fastReport中有一个名为memo1的备忘录名为frxReport1。 Memo1应根据某些条件在第一页和最后一页上查看(例如Cond1) 我在delphi中的beforeprint事件上编写代码:
procedure MyReportBeforePrint(Sender: TfrxReportComponent);
var Component: TfrxComponent;
begin
Component := (Sender as TfrxReportComponent).FindObject('Memo1');
if Component is TfrxMemoView then
begin
With Component as TfrxMemoView do
begin
Visible :=
( Cond1 and ( (Sender as frxReportComponent).Report.Variables['Page#']=1) )
or
( Cond1 and ( (Sender as frxReportComponent).Report.Variables['Page#']=(Sender as TfrxReportComponent).Report.PagesCount) )
end;
end;
end;
但是此代码不起作用,我不知道如何在此事件中查找页面#和页数。 有没有人这样做过?或者知道这是否可能与FastReport一起使用。