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 19-08-2005
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
Formularios

Hola a Todos:

Quisiera saber si existe alguna manera de recorrer todos los formularios que hay en mi aplicaciòn asi como se recorren los componentes dentro un form.
Código Delphi [-]
       For x := 0 To ComponentCount- 1 Do
         If Components[x] Is TMenuItem Then
            if (TMenuItem(Components[x]).name=nombre) then
                TMenuItem(Components[x]).visible:=True;

existe algo parecido para los formularios?, utilizo delphi7

Muchas Gracias de antemano
Responder Con Cita
  #2  
Antiguo 19-08-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Screen.Forms es una lista de los formularios abiertos.

// Saludos
Responder Con Cita
  #3  
Antiguo 19-08-2005
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
Muchas pero muchisimas gracias Roman, lo hice funcionar de la siguiente manera

Código Delphi [-]
     for x:=0 to screen.FormCount-1 do
        if screen.Forms[x].name='Forma Buscada' then
           screen.Forms[x].Show;

Que tengan Un Buen Dia
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


La franja horaria es GMT +2. Ahora son las 12:18:57.


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