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:

Zitat von himitsu (Beitrag 1508692)

close quick report preview

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

Genau dort hatte ich den

Delphi-Quellcode:

rptMediaList.qrMediaList.Cancel;

her. Leider funktioniert es aber nicht.
Nach Cancel ist der Preview immer noch sichtbar

Irgendwo anders fand ich den

Delphi-Quellcode:

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:

Zitat von Poelser (Beitrag 1508694)

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

Delphi-Quellcode:

FHwnd := FindWindow(nil, 'Report Preview: Media-List Report')

bekomme ich 0. Auch wenn ich FindWindowEx verwende

[Poelser]

Zitat:

Zitat von norwegen60 (Beitrag 1508695)

Idee schien gut, aber ich finde den Handle des Preview nicht.
Mit

Delphi-Quellcode:

FHwnd := FindWindow(nil, 'Report Preview: Media-List Report')

bekomme ich 0. Auch wenn ich FindWindowEx verwende

Und was ist mit

Delphi-Quellcode:

rptMediaList.qrMediaList.Handle

, die Preview müsste doch ein Handle haben? :gruebel:

[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:

Zitat von BerndS (Beitrag 1508697)

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:

Zitat von Poelser (Beitrag 1508696)

Und was ist mit

Delphi-Quellcode:

rptMediaList.qrMediaList.Handle

, die Preview müsste doch ein Handle haben? :gruebel:

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.