Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-10-2003
cso2000 cso2000 is offline
Miembro
 
Registrado: may 2003
Ubicación: Guadalajara, Jalisco
Posts: 108
Poder: 21
cso2000 Va por buen camino
Aplicacion MDI

Hola a todos:

Estoy trabajando con una aplicacion mdi donde tengo un form principal y varios hijos, el problema es que algunos formularios hijos quiero que solo se abran una sola vez esto ya lo tengo pero quiero que al mandarllamar el formulario si existe me lo ponga al frente de mi aplicacion o me lo active como me entiendan

espero algien me pueda ayudar con algun metodo o funcion


Gracias
Responder Con Cita
  #2  
Antiguo 30-10-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Si los formularios a la hora de crearlo lo asignas a una variable global, como la que crea automáticamente en la misma unit del form Delphi. Solo tendrías que encargarte de cuando se libera asignarle Nil (FreeAndNil), y luego preguntar si esta asignada esta variable a la hora de crear el form, si esta entonces muéstralo, sino crealo.

Otra manera es trabajar con Screen.Forms.... (Busca en el foro)


Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 30-10-2003
cso2000 cso2000 is offline
Miembro
 
Registrado: may 2003
Ubicación: Guadalajara, Jalisco
Posts: 108
Poder: 21
cso2000 Va por buen camino
Gracias por contestar:

Yo Utilizo esto para que no se me repita la ventana

Código:
procedure TForm1.NoRepetir1Click(Sender: TObject);
begin
   If self.FindComponent( 'Form2' ) <> Nil Then Exit;
   form2 := TForm2.Create( Self );
   Form2.Show;
end;

y lo que quiero es que en vez del Exit poner la instruccion para que ponga en el frente el formulario

Gracias de antemano.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 11:50:43.


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