event handler in delphi

Comments

• -=Den=-

  March 2006 edited March 2006

  Use frxReport.OnBeforePrint event:

  procedure TForm1.InitReport;
  var
   Page : TfrxReportPage;
   Cross : TfrxCrossView;
  begin
   // Add the TfrxCrossView to it
   Page := TfrxReportPage(frxReport1.FindObject('Page1'));
  
  
   Cross := TfrxCrossView.Create(Page);
  
   Cross.Name := 'Cross1';
   Cross.SetBounds(0,0,20,15);
   Cross.RowLevels := 1;
   Cross.ColumnLevels := 1;
   Cross.OnBeforePrint := 'Cross1OnBeforePrint';
   Cross.OnAfterData := TfrxNotifyEvent
  
   FCross := Cross;
  //  frxReport1.PrepareReport(true);
   frxReport1.DesignReport;
  //  frxReport1.ShowReport;
  end;
  
  procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
  var
   Page : TfrxReportPage;
  begin
  if (Sender is TfrxCrossView) and (Sender.Name = 'Cross1') then
  Begin
   ShowMessage('Hello from delphi');
   TfrxCrossView(Sender).AddValue(['Binnen 1 week'], ['Q1 2005'], [0.6]);
  end;
  end
  
• eljack

  March 2007 edited 11:53PM

  I have tried the code but don't work.
  
  I don't know well delphi to undestand the problem, and for this reason i need help.
  
  Be patient for my very stupid question:
  
  Why this row i not closed with ;
  Cross.OnAfterData := TfrxNotifyEvent
  
  What is FCross and where is declared?
  FCross := Cross;
  
  The event procedure TForm1.frxReport1BeforePrint give me compile error.
  
  Thank you.