Fermeture modeless Rave fenêtres Rapports par programme

Question

Amis

J'utilise RR pour produire des aperçus d'impression, sur la base d'un seul TRVSystem (réglage Modal false et rediriger la fonction OnPrint pour produire chaque aperçu, la cueillette et l'utilisation du TBasereport.

Il fonctionne bien, mais je dois veiller à ce que toutes les fenêtres du rapport modales sont fermés le programme près afin d'éviter des exceptions.

Ai-je besoin de localiser/énumérer les fenêtres de rapport afin de les fermer?

Answer 1

Vous pouvez énumérer tous les formulaires ouverts à l'aide de l'objet Screen singleton et vérifier s'ils appartiennent à un type de déviation TForm donné. Si oui, fermez ces formulaires:

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;