Weitere Fenster geöffnet?

[bitsetter]

Hi,

noch eine Variante:

Delphi-Quellcode:

var
  i: integer;
begin
  for i:= 0 to Application.ComponentCount- 1 do
    if Application.Components[i] is TCustomForm  then
      if TCustomForm(Application.Components[i]).Showing then
        showmessage(TCustomForm(Application.Components[i]).Name)