Print Preview

[[Héctor Randolph]]

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
    { Private declarations }
     procedure CerrarPreview(Sender: TObject; var Action: TCloseAction);
  public
    { Public declarations }
  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

[keyboy]

¿Y si usan a la misma ventana del preview como variable "booleana"?

Código Delphi [-]
function IsPreviewActive: Boolean;
var
  I: Integer;

begin
  Result := false;

  for I := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassName = 'TQRStandardPreview' then
    begin
      Result := true;
      break;
    end;
end;

Así, al hacer el preview sólo tienen que examinar el valor de la función:

Código Delphi [-]
if IsPreviewActive then
  ShowMessage('Ya hay una vista preliminar activa')
else
  QuickRep1.Preview;

Bye

[StartKill]

Señores.

Gracias por su ayuda, me servieron todas sus sus ideas. (hasta la ultima linea de código)

Tambien encontré esto, http://www.rinconcitodelphi.com/arti...rt/QReport.pdf aun no lo he leido, creo ya no sera necesario gracias a Uds.

Your friend
StartKill
Lima-Perú