Quickreport Preview per Code schließen

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