Aquí les dejo el código de una pequeña prueba que hice. Coloqué un reporte y un botón dentro del formulario. La idea es capturar el evento que se genera al cerrar la vista previa.
Código Delphi
[-]
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
private
procedure CerrarPreview(Sender: TObject; var Action: TCloseAction);
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
I: Integer;
begin
for I:=0 to Screen.FormCount-1 do
begin
if Screen.Forms[i].ClassName='TQRStandardPreview' then
begin
Screen.Forms[i].OnClose:=CerrarPreview;
end;
end;
end;
procedure TForm1.CerrarPreview(Sender: TObject; var Action: TCloseAction);
begin
ShowMessage('Se cerró el formulario de la vista previa.');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;
end.
Saludos