Событие нажатия кнопок "Печать" и "Закрыть"

Комментарии

• gpi

  July 2020 отредактировано July 2020

  uses frxClass, frxPreview, frxPreviewPages, frxRes;

  
  

  type

   TForm1 = class(TForm)

    frxReport1: TfrxReport;

    procedure frxReport1Preview(Sender: TObject);

    procedure NewOnClick(Sender: TObject);

   end;

  var Form1: TForm1;

  implementation

  {$R *.dfm}

  
  

  procedure TForm1.frxReport1Preview(Sender: TObject);

  begin

   if frxReport1.PreviewForm is TfrxPreviewForm then

      TfrxPreviewForm(frxReport1.PreviewForm).PrintB.OnClick := NewOnClick;

  end;

  
  

  procedure TForm1.NewOnClick(Sender: TObject);

  begin

   if frxReport1.Engine.Running then Exit;

   ShowMessage('Print button pressed');

  end;

  
  

  end.