Quickreport Preview per Code schließen

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

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

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

[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

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