Quickreport Preview per Code schließen

[haentschman]

Zitat:

Vielleicht kann man noch abspecken

Ja...WITH raus.

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