Obtener formularios abiertos

[*Caro*]

Hola de nuevo, solo quería decir que una cosa es que esten creados pero otra que ademas esten abiertos, con lo anterior obtienes toda la lista de los formularios creados, para saber si alguno de ellos ademas esta abierto, puedes utilizar la propiedad Showing.

Código Delphi [-]
var
 i : Integer;
begin
 for i:=0 to screen.FormCount-1 do
  if screen.Forms[i].Showing then
   showmessage(screen.Forms[i].name);

Saluditos