Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.233
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Acceder a los forms abiertos de tu aplicacion

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;
Responder Con Cita