Закрытие окна просмотра

Led

Мне надо что бы после печати или закрытия окна просмотра , выполнялись некоторые действия как это запрограммировать, вернее где?

-=Den=-

В событии OnPreview нужно повесит новый обработчик для frxReport1.PreviewForm.OnClose :

....
interface

uses
   .....,frxPreview, frxClass;

type
  TForm1 = class(TForm)
    frxReport1: TfrxReport;
    procedure frxReport1Preview(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;
  OldCloseEvent:TCloseEvent;

implementation
procedure NewOnClose(Sender: TObject; var Action: TCloseAction);
begin
  OldCloseEvent(Sender,Action);
  ShowMessage('Preview Closed');
end;

procedure TForm1.frxReport1Preview(Sender: TObject);
begin
  OldCloseEvent := frxReport1.PreviewForm.OnClose;
  @frxReport1.PreviewForm.OnClose := @NewOnClose;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 frxReport1.ShowReport();
end;

Led

ойойой, а можно в С *шном варианте?

-=Den=-

//-----------------------------main.hpp-----------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "frxClass.hpp"
#include "frxRich.hpp"
#include "frxPreview.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TfrxReport *frxReport1;
        TfrxRichObject *frxRichObject1;
        void __fastcall frxReport1Preview(TObject *Sender);
private:	// User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;

//------------------main.cpp---------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Main.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxRich"
#pragma link "frxPreview"
#pragma resource "*.dfm"
TForm1 *Form1;
TCloseEvent OldEvent;
void __fastcall  NewEvent(System::TObject* Sender, TCloseAction &Action)
{
  OldEvent(Sender,Action);
  ShowMessage("Preview Closed");
}


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  frxReport1->ShowReport();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::frxReport1Preview(TObject *Sender)
{
  TMethod Method;
  Method.Data = this;
  Method.Code= NewEvent;
  OldEvent = frxReport1->PreviewForm->OnClose;
  frxReport1->PreviewForm->OnClose = (*(TCloseEvent*)&Method);
}

Led

спасибо...