Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ¿Cómo evitar que al cerrar el formulario principal se cierren los demás? (https://www.clubdelphi.com/foros/showthread.php?t=68292)

Master23 06-06-2010 04:56:39

¿Cómo evitar que al cerrar el formulario principal se cierren los demás?
 
Tengo un problema necesito su ayuda,el problema es que tengo una aplicación realizada y bueno sistema de entrada o login ,es el principal form pero si lo cierro entonces se cierran todos y si lo pongo hide cuando minimizo las otras ventanas se desaparecen de la barra pero aun siguen ahí ,tengo que terminar la aplicación por el administrador de tareas porque solo aparecen ahí ,y si es invisible también las demás aplicaciones desaparecen cuando la minimizo, quiero que el formulario principal desaparezca y que yo pueda minimizar las demás aplicaciones sin que desaparezcan las demás al minimizar ,gracias de ante mano.

kiozo 06-06-2010 05:09:46

libera el formulario principal
 
solo tienes que liberar la forma ...! despues de entrar a otra..!
Código Delphi [-]
formaprincipal.free;

Master23 06-06-2010 05:17:36

Cita:

Empezado por kiozo (Mensaje 366319)
solo tienes que liberar la forma ...! despues de entrar a otra..!
Código Delphi [-]
formaprincipal.free;

podrías darme un ejemplo por favor.

kiozo 06-06-2010 05:33:01

Cita:

Empezado por Master23 (Mensaje 366320)
podrías darme un ejemplo por favor.


mira mi forma principal se llama TFAcceso que es el login del usuario cuando hago el locate..!

si es verdadero entro a la forma menu y libero mi forma principal que es tfacceso.


Código Delphi [-]
procedure TFAcceso.BitBtn1Click(Sender: TObject);
begin

 Modulo.TUsuario.open;
if (Edit1.Text<>'')then
  begin
    if Modulo.TUsuario.Locate('usuario;contraseña', VarArrayOf([Edit1.Text, Edit2.Text]), []) then
      begin
        Application.CreateForm(TFMenu,FMenu);
        FMenu.Show;
        facceso.Free;
      end
    else
  begin
        ShowMessage('Usuario y/o Contraseña Incorrecta');
        Edit1.setFocus;
        Edit2.Clear;
        end;
        Modulo.TUsuario.close;
        end;
end;

Master23 06-06-2010 05:35:19

Cita:

Empezado por kiozo (Mensaje 366321)
mira mi forma principal se llama TFAcceso que es el login del usuario cuando hago el locate..!

si es verdadero entro a la forma menu y libero mi forma principal que es tfacceso.


Código Delphi [-]
procedure TFAcceso.BitBtn1Click(Sender: TObject);
begin

 Modulo.TUsuario.open;
if (Edit1.Text<>'')then
  begin
    if Modulo.TUsuario.Locate('usuario;contraseña', VarArrayOf([Edit1.Text, Edit2.Text]), []) then
      begin
        Application.CreateForm(TFMenu,FMenu);
        FMenu.Show;
        facceso.Free;
      end
    else
  begin
        ShowMessage('Usuario y/o Contraseña Incorrecta');
        Edit1.setFocus;
        Edit2.Clear;
        end;
        Modulo.TUsuario.close;
        end;
end;

Muchas gracias seguiré tu consejo.

coso 06-06-2010 13:14:46

Hola, en vez de free, mejor usa release, ya que si usas free estaras liberando el form mientras se esta usando, lo que te provocara problemas. Un saludo.


La franja horaria es GMT +2. Ahora son las 06:47:01.

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