Geöffnete Forms auslesen/ermitteln?

[Sunlight7]

zB mit:

Delphi-Quellcode:

   var i:Integer;
begin
   Memo1.Lines.Clear;

   For i:=0 to Screen.FormCount-1 do
      Memo1.Lines.Add(Screen.Forms[i].Caption{oder .Name});

Die 1. Form, die Du bekommst ist im Vordergrund (sofern Deine Anwendung den Fokus hat).