Quickreport Preview per Code schließen

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