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

[himitsu]

close quick report preview

https://stackoverflow.com/questions/...-close-preview ?

[norwegen60]

Zitat von himitsu:

close quick report preview

https://stackoverflow.com/questions/...-close-preview ?

Genau dort hatte ich den rptMediaList.qrMediaList.Cancel; her. Leider funktioniert es aber nicht.
Nach Cancel ist der Preview immer noch sichtbar

Irgendwo anders fand ich den rptMediaList.Release; aber auch der half nicht

[Poelser]

Nur so eine Idee, aber die Preview hat doch ein Fenster und somit ein Handle. Es müsste genügen, wenn du da ein WM_CLOSE hinschickst.

[norwegen60]

Zitat von Poelser:

Nur so eine Idee, aber die Preview hat doch ein Fenster und somit ein Handle. Es müsste genügen, wenn du da ein WM_CLOSE hinschickst.

Idee schien gut, aber ich finde den Handle des Preview nicht.
Mit FHwnd := FindWindow(nil, 'Report Preview: Media-List Report') bekomme ich 0. Auch wenn ich FindWindowEx verwende

[Poelser]

Zitat von norwegen60:

Idee schien gut, aber ich finde den Handle des Preview nicht.
Mit FHwnd := FindWindow(nil, 'Report Preview: Media-List Report') bekomme ich 0. Auch wenn ich FindWindowEx verwende

Und was ist mit rptMediaList.qrMediaList.Handle , die Preview müsste doch ein Handle haben?

[BerndS]

Wenn du die Klasse kennst bzw TQRStandardPreview verwendest, dann kannst du das mal versuchen:

Delphi-Quellcode:

    
  for i := 0 to Screen.CustomFormCount - 1 do
      if (Screen.CustomForms[I] is TQRStandardPreview) then
        TQRStandardPreview(Screen.CustomForms[I]).Release; // oder close

Ich hab das nur hingetippt und nicht getestet.

[norwegen60]

Zitat von BerndS:

Wenn du die Klasse kennst bzw TQRStandardPreview verwendest, dann kannst du das mal versuchen:

Delphi-Quellcode:

    
  for i := 0 to Screen.CustomFormCount - 1 do
      if (Screen.CustomForms[I] is TQRStandardPreview) then
        TQRStandardPreview(Screen.CustomForms[I]).Release; // oder close

Ich hab das nur hingetippt und nicht getestet.

Mit .Release passiert nichts aber mit .Close schließt er den Report auf dem PreView-Fenster. Dann bleibt aber immer noch das leere Preview-Fenster stehen. D.h. das Fenster in dem man den Report vergrößern, verkleinern, Sichern, Blättern kann.

[norwegen60]

Zitat von Poelser:

Und was ist mit rptMediaList.qrMediaList.Handle , die Preview müsste doch ein Handle haben?

Damit bekomme ich natürlich ein Handle. Der schließt aber immer noch nicht das Quick-Report-Preview-Fenster.

[BerndS]

Dann vesuch mal den Parent bzw Parentform der Reportvorschau zu schließen.