Suche nach einem Formtyp in einer ObjectListe von Forms

[Klaus01]

Delphi-Quellcode:

type
  TFormClass = class of TForm;


function TForm1.formExists(form: TFormClass): Boolean;
begin
 for var i := 0 to fFormList.Count - 1 do
 begin
   result := false;
   if (AFormList[i] is form) then
   begin
     result := true;
     break;
   end;
 end;
end;

vielleicht so?

Grüße
Klaus