создать программно Onbeforeprint

Penner

в Delphi программно добавляю MemoView

MyMemo := TfrxMemoView.Create(MyPageFooter);
with MyMemo do
begin
Name := 'Muster_PageNr';
Text := '[Page#] / [TotalPages#]';
OnBeforePrint := 'Muster_PageNrOnBeforePrint'
end;

как программно добавить Muster_PageNrOnBeforePrint?

gpi

Добавьте в TfrxReport.ScriptText

Penner

gpi написал: »

Добавьте в TfrxReport.ScriptText

with frxReport.ScriptText do
  begin
    Add('procedure Muster_PageNrOnBeforePrint(Sender: TfrxComponent);');
    Add('begin');
    Add('   if <TotalPages#> = 1 then');
    Add('     Muster_PageNr.Visible := False;');
    Add('end;');
  end;

  MyMemo := TfrxMemoView.Create(MyPageFooter);
  with MyMemo do
  begin
    Name := 'Muster_PageNr';
    Text := 'Seite [Page#] von [TotalPages#] ';
    OnBeforePrint := 'Muster_PageNrOnBeforePrint'
  end;

Проверил.
Код добавляется, но не работает (при печати только 1 страници текст отображается).

PS. FR FMX2

PPS. увидел разницу в скриптах:
если добавить в дезайнере, то код попадает ДО "begin end"
если програмно, то после

gpi

Используйте Insert вместо Add