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

Раздел: FastReport VCL 5

Добрый день, как программно отслеживать событие нажатия кнопок  "Печать" и "Закрыть"?


Комментарии

  • gpigpi г. Волноваха Донецкой обл. Украина
    отредактировано 22 Jul

    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.

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.