Weitere Fenster geöffnet?

[trashcandesign]

Danke Hawkeye so funktioniert das, was ich will:

Delphi-Quellcode:

var
  i : integer;
begin
  for i := 0 to Scree.FormCount-1 do
    if Screen.Forms[i].Visible then
      Showmessage Screen.Forms[i].Name;