關閉無模式的Rave報告窗口編程

Question

朋友

我使用RR製作打印預覽，基於單一TRVSystem（設置模態爲false，並重定向onPrint功能產生每個預覽，選擇和使用TBasereport。

它運作良好，但我需要確保所有的非模態報告的窗口被關閉，以避免異常的程序關閉。

我需要找到/枚舉報告窗口，以關閉它們？

Answer 1

您可以使用Screen singleton對象枚舉所有打開的窗體並檢查它們是否是給定的TForm獨立類型。如果是，請關閉這些表格：

var 
    F: TCustomForm; 
    i: Integer; 
begin 
    for i := Screen.FormCount - 1 downto 0 do begin 
    F := Screen.Forms[ i ]; 
    if F is TMySpecialFormType then F.Free(); 
    end; 
end;