Acceder a los forms abiertos de tu aplicacion

[Neftali [Germán.Estévez]]

Podemos saber cuantos formularios están abiertos en la aplicación y recorrerlos utilizando la variable Screen.
Vamos con el código:

Código Delphi [-]
 var
     i:Integer;
 begin
     i := Screen.FormCount;
     MessageDlg(IntToStr(i) + ' formularios en pantalla/forms in screen', mtInformation, [mbOK], 0);
     for i := 0 to (Screen.FormCount - 1) do begin
       Screen.Forms[i].Caption := 'Form: ' + IntToStr(i);
     end;