Как узнать какая страница формируется (GetValue)?

Комментарии

• gpi

  February 2006 отредактировано February 2006

  объяви в программе переменную i, в которой и будет храниться номер записи/страницы frxUserDataSet1

  procedure TForm1.frxUserDataSet1First(Sender: TObject);
  begin
       i:=1;
  end;
  
  procedure TForm1.frxUserDataSet1Next(Sender: TObject);
  begin
       inc(i);
  end;
  
• Bzzz

  February 2006 отредактировано 07:41

  Вы не совсем меня поняли, Интересен индекс страницы из отчета, для которого сейчас собираются данные. Типа frxReport.Report.Page.Name - но так не работает.
  
  Да, Я в данный момент организовал подобный образом, правда более сложная система, т.к. Я определяю по вызовам First - страницу, для которой в данный момент идет формирование данных.
  
  Спасибо за отклик.
• gpi

  February 2006 отредактировано 07:41

  можно в процедуре PageOnBeforePrint передавать имя страницы в программу в качестве параметра пользовательской функции или присваивать имя страницы переменной, а из программы считывать значение переменной

  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
       MyFunc(Page1.Name);
  end;
  procedure Page2OnBeforePrint(Sender: TfrxComponent);
  begin
       MyFunc(Page2.Name);
  end;
  

  или

  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
       Set('PageName',Page1.Name);
  end;
  procedure Page2OnBeforePrint(Sender: TfrxComponent);
  begin
       Set('PageName',Page2.Name);
  end;
  

  
  
• Bzzz

  February 2006 отредактировано 07:41

  ООО ... вот это более красивый метод. Попробую взять его на вооружение. Спасибо.