Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-10-2008
Bauhaus1975 Bauhaus1975 is offline
Miembro
 
Registrado: may 2005
Ubicación: Málaga
Posts: 135
Poder: 20
Bauhaus1975 Va por buen camino
Thumbs up Obtener formularios abiertos

Hola
me pregunto... ¿cómo puedo saber desde mi formulario principal qué formularios están creados y abiertos?
Gracias y un saludo.
Responder Con Cita
  #2  
Antiguo 09-10-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

La variable global "Screen" (declarada en la unidad "Forms") puede salir en tu ayuda. Echa un vistazo a sus propiedades y métodos.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 09-10-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola Bauhaus1975, como te dice el amigo Dec con Screen puedes obtener todos los formularios creados en tu aplicación.

Código Delphi [-]
for i:=0 to Screen.FormCount-1 do
   showmessage(Screen.Forms[i].name);

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #4  
Antiguo 09-10-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #5  
Antiguo 09-10-2008
Bauhaus1975 Bauhaus1975 is offline
Miembro
 
Registrado: may 2005
Ubicación: Málaga
Posts: 135
Poder: 20
Bauhaus1975 Va por buen camino
Muchas gracias a los dos.
Era lo que estaba buscando.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Firefox apela al uso de estándares abiertos Neftali [Germán.Estévez] Noticias 2 17-04-2007 14:54:40
ver registro de archivos abiertos en winXP el_barto Windows 5 20-09-2005 20:38:17
Que programas tengo abiertos? Novás Varios 2 15-06-2005 16:17:40
Problemas con 2 delphis abiertos Mauro.NET Varios 3 14-06-2005 07:15:09
Saber si hay Querys abiertos ramonibk Varios 4 26-11-2004 16:06:10


La franja horaria es GMT +2. Ahora son las 02:15:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi