Quickreport Preview per Code 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 von 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.

Und wenn Du GetParent(rptMediaList.qrMediaList.Handle) nutzt?
Oder GetWindow(rptMediaList.qrMediaList.Handle, GW_OWNER) ?

[norwegen60]

[QUOTE=KodeZwerg;1508704]

Zitat von norwegen60:

Und wenn Du 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?

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]

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 von KodeZwerg:

Oder 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;