Geöffnete Forms auslesen/ermitteln?

[taaktaak]

Moin, Moin,
mit

Delphi-Quellcode:

with Application do 
  for i:=0 to ComponentCount-1 do 
    if Components[i] is TForm then begin 
      // ..
      // prüfe, welches Form gefunden wurde
      // und nutze das Ergebnis
      for j:=0 to Components[i].ComponentCount-1 do 
        if Components[i].Components[j] is ~~ then // < Typ der gesuchten Komponente einsetzen
          // ..
          // prüfe, welche Komponente gefunden wurde
          // und nutze das Ergebnis
      end;

werden alle Formulare und Komponenten deiner Anwendung "durchlaufen".
Vielleicht hilft es dir.