Quickreport Preview per Code schließen

[norwegen60]

Hallo zusammen,

ich erstelle per

Delphi-Quellcode:

  rptMediaList := TrptMediaList.Create(Application);
  if rptMediaList.PrepareDatabase then // Filter an Report übergeben und DB öffnen
  begin
    rptMediaList.qrMediaList.PrevFormStyle := fsStayOnTop;
    rptMediaList.qrMediaList.Preview;
  end;
  rptMediaList.Free;

Jetzt soll bei einem AutoLogout der eventuell noch offene Preview geschlossen werden.

Ich habe alle diese Befehle in unterschiedlichen Kombinationenn ausprobiert, aber keiner schließt wirklich den Preview. Einziger Effekt ist, dass sich das Programm bei Klick auf den PreView-Close-Button aufhängt, da ich ihm die Grundlagen entzogen habe

Delphi-Quellcode:

      rptMediaList.qrMediaList.Visible := false;
      rptMediaList.qrMediaList.PreviewController.Free;
      rptMediaList.qrMediaList.Cancel;
      rptMediaList.qrMediaList.FreeOnRelease;

      rptMediaList.Release; 
      rptMediaList.Close;

Wie kann ich den Preview sauber schließen?

Danke
Gerd