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.

[norwegen60]

Das mach ich doch schon mit

Delphi-Quellcode:

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

      rptMediaList.Release;
      rptMediaList.Close;

[KodeZwerg]

Zitat:

Zitat von norwegen60 (Beitrag 1508700)

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.

Und wenn Du

Delphi-Quellcode:

GetParent(rptMediaList.qrMediaList.Handle)

nutzt?
Oder

Delphi-Quellcode:

GetWindow(rptMediaList.qrMediaList.Handle, GW_OWNER)

?

[norwegen60]

[QUOTE=KodeZwerg;1508704]

Zitat:

Zitat von norwegen60 (Beitrag 1508700)

Und wenn Du

Delphi-Quellcode:

GetParent(rptMediaList.qrMediaList.Handle)

nutzt?

Schließt den PreView auch nicht. Der PreView müsste aber doch eher ein Child als ein Parent von rptMediaList.qrMediaList sein. Oder täusche ich mich

Ich habe auch noch

Delphi-Quellcode:

        for i := Screen.CustomFormCount - 1 downTo 0 do
        begin
          sName := TCustomForm((Screen.CustomForms[i])).ClassName;
          if (Screen.CustomForms[i] is TQRStandardPreview) then
          begin
            FHwnd := GetParent(Screen.CustomForms[i].Handle);
            TQRStandardPreview(Screen.CustomForms[i]).Close; // oder close
            SendMessage(FHwnd, WM_CLOSE, 0, 0);

          end;
        end;

versucht, also den Parent des eigentlichen Reports. Aber auch das hat das PreView-Fenster nicht geschlossen

Ich habe mit der Schleife auch mal alle, außer dem Main geschlossen.

Delphi-Quellcode:

          else if (Screen.CustomForms[i] is TCustomForm) then
          begin
            if (TCustomForm((Screen.CustomForms[i])).Name <> 'frmMain') then
              TCustomForm(Screen.CustomForms[I]).Close; 
          end;

Selbst dann blieb der PreView offen.

[BerndS]

Was ein Close verhindern könnte ist OnCloseQuery.
Gibt es in dem Form ein OnCloseQuery, dann setze das mal vor dem close auf nil.

Delphi-Quellcode:

TQRStandardPreview(Screen.CustomForms[i]).OnCloseQuery := nil;
TQRStandardPreview(Screen.CustomForms[i]).Close;

[Delphi.Narium]

Und was ist damit?

Delphi-Quellcode:

rptMediaList.qrMediaList.PrevFormStyle := fsStayOnTop;

Mal vor dem Schließen auf was anderes ändern? Z. B. fsNormal?

[himitsu]

egal oder eher kontraproduktiv

Delphi/VCL kann den Style nicht zur Laufzeit ändern ... intern wird dabei die Form (HWND) freigegeben und komplett neu erstellt.


* schauen welche Form/Klasse angezeigt wird (Debugger/WinSpy/...)
* rausfinden, wo dessen Instanz gespeichert wird (Variablen/Felder/Property)
* und dann darauf ein Close/WM_CLOSE ausführen

* gibt es eine MessageLoop im QuickReport (z.B. wie ShowModal), dann da nachsehen, was die Abbruchbedingungen sind und wie/wo man darauf Zugriff bekommt




zu Screen.CustomForms/Screen.Forms in #13:
nicht GetParent, sondern GetParentForm (wenn/falls es sich um eine eigebettete Form handelt)


OnCloseQuery kann man auch mit Free statt Close um umgehen, da dort nicht mehr nachgefragt wird.

[Uwe Raabe]

Nur so ins Blaue:

Delphi-Quellcode:

rptMediaList.qrMediaList.QRPrinter.ClosePreview(nil);

[norwegen60]

Delphi-Quellcode:

rptMediaList.qrMediaList.QRPrinter.ClosePreview(nil);

hat genau denselben Effekt wie die Suche und das Schließen von TQRStandardPreview. Der Report wird geschlossen, das Preview-Fenster bleibt offen.

Den PrevFormStype hatte ich schon testweise auf fsNormal gesetzt. Auch das ändert nichts daran, dass der PreView offen bleibt.

Verwendung von Free hat auch nichts gebracht, zumal im OnClose nichts ist

Ich hätte nicht gedacht, dass es so schwer ist ein QuickReport wirder los zu werden.

[KodeZwerg]

Zitat:

Zitat von KodeZwerg (Beitrag 1508704)

Oder

Delphi-Quellcode:

GetWindow(rptMediaList.qrMediaList.Handle, GW_OWNER)

?

Das auch schon probiert?

//edit
Ansonsten mal beim Author fragen wie es gedacht ist? qusoft.com

[norwegen60]

So, ich habe mir jetzt auch WinSpy angeschaut und (für mich) überraschendes festgestellt

Der eigentliche Report entstammt der Klasse TQRPreview
Das Preview-Fenster, in dem der Report eingebunden ist, entstammt der Klasse TQRStandardPreview und hat den Titel "Report Preview : Media-List Report"

Dadurch weiß ich jetzt, dass hintern "Report Preview" noch ein Leerstelle ist und mit der findet

Delphi-Quellcode:

        FHwnd := FindWindow(nil, 'Report Preview : Media-List Report');                            
        SendMessage(FHwnd, WM_CLOSE, 0, 0);

jetzt auch den Handle.

Das wars aber auch schon an weiterkommen, denn der anschließende WM_CLOSE schließt wieder nur den Report

Gelöst habe ich es jetzt trotzdem. Vielleicht kann man noch abspecken, aber so geht es

Delphi-Quellcode:

        try 
          rptMediaList.Enabled := False;
          rptMediaList.Hide;
          for i := Screen.FormCount - 1 downto 0 do
          begin
            with Screen.Forms[i] do
            begin
              if ClassName = 'TQRStandardPreview' then
                with TQRStandardPreview(TComponent(Screen.Forms[i])) do
                  Destroy;
            end;
          end;
          rptMediaList.qrMediaList.Free;
          rptMediaList.Release; 
        finally
          rptMediaList.Free;
          rptMediaList:= nil;
        end;

[haentschman]

Zitat:

Vielleicht kann man noch abspecken

Ja...WITH raus. :stupid: :zwinker:

[Uwe Raabe]

Die Schleife kann etwas schlanker ausfallen:

Delphi-Quellcode:

  for i := Screen.FormCount - 1 downto 0 do
    if Screen.Forms[i] is TQRStandardPreview then
      Screen.Forms[i].Free;

[norwegen60]

Bei der Schleife ist mir alter Code rein gerutscht.
Ich hatte es ja schon mal so

Delphi-Quellcode:

 for i := Screen.CustomFormCount - 1 downto 0 do
      if (Screen.CustomForms[I] is TQRStandardPreview) then
        TQRStandardPreview(Screen.CustomForms[I]).Close;