No se ejecuta el Destroy

[ecfisa]

Empezado por pelecho

Hola a todos,
ya que se toca el tema del destroy en formularios, tengo un pequeño inconveniente con lo reportes, usando el Report (File->New..., luego en la pestaña New hay un formulario Report). Cuando llamo el evento AfterPreview, no me lo ejecuta. Necesito destruir el informe, ya que lo construyo solamente para imprimir un reporte.
Alguien tiene una idea como solucionarlo? Necesito destruir el formulario de reporte de todos modos.

Hola pelecho.

Primero quitá QuickReport2 (o el nombre que le diste al report) de la lista en: Project -> Options -> Forms -> Auto-create forms.

Luego desde el form que deseas invocarlo una opción sería por ejemplo:

Código Delphi [-]
...
implementation

uses Unit2; // unit del QuickReport2

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TQuickReport2.Create(nil) do
  try
    ...
    Preview;
  finally
    Free;
  end;
end;
...

Si deseas que dure lo que la vida del form invocador, podrías hacer:

Código Delphi [-]
...
implentation
uses Unit2; // unit del QuickReport2

procedure TForm1.FormCreate(Sender: TObject);
begin
   QuickReport2:= TQuickReport2.Create(Self); // Owner = Form1
end;
...

Saludos.