Cerrar forms de manera independiente
 

Wenas!!! tengo un proyecto con dos forms, lo q quiero conseguir es q pueda cerrar cada uno de ellos independientemente,es decir,si cierro uon de los 2,el otro siga ejecutándose sin terminar la aplicación.Ahora lo q me pasa es q si cierro uno de ellos finaliza todo.Gracias ;)

No se exactamente a que te refieres, pero si cierras uno de ellos y cierras ambos, prueba a poner uno oculto, es decir, visible := false


Quizas te sirva eso.

Debes estar cerrando el formulario principal por eso se te cierran todos los formularios.
Ocultalo en lugar de cerrarlo.

Código Delphi [-]
  Self.Hide;

El código Self.Hide,donde lo pongo?en el evento OnClose? para q cuando le de a cerrar no termine?

El en botón o menú que utilices para cerrar el lugar de Self.Close utiliza ésto (para el form principal); Luego en algun momento deberás visualizarlo; Para acabar la aplicación puedes utilizar:

Código Delphi [-]
  Application.Terminate;

Me podría servir, pero cómo puedo hacer eso si cierras desde la ventana misma?

El caso es que delphi toma el primer formulario creado como formulario principal de la aplicación, y al cerrarse este formulario, la aplicación termina.

No hace falta rebuscar tanto... me parece que lo que procede hacer es un tercer formulario, y que sea este el formulario principal (el primero que se crea). Podrías ocultarlo al nomas iniciar la aplicación y cerrarlo por código cuando detectas que los dos formularios han sido cerrados, para que la aplicación termine.

Hasta luego.

;)

SaludosNo estoy de acuerdo en esto.

Resulta que no siempre el 1er formulario que se crea es el principal pues tengo este codigo

Código Delphi [-]
  Application.Initialize;
    with tfrmAcceso.Create(nil) do begin
      if ShowModal=mrok then begin
        frmPantEntr:=TfrmPantEntr.Create(nil);
        Application.CreateForm(Tfrmprincipal, frmprincipal);
        FreeAndNil(frmPantEntr);
        Application.Run;
      end else
      begin
        application.Terminate;
      end;//If
    end;//With
...
...
...

y como bien se ve, el 1ro en crearse es frmacceso y despues los demas. Al validar el acceso, este formulario se cierra y da paso a las demas lineas de codigo

Donde si toma como principal el primer formulario que se crea con Application.......

o me equivoco???:-s

No te equivocas. Supongo que cuando jachguate dijo:


realmente quería decir:

El punto es, que si no usas Application.CreateForm, entonces apenas cierres el cuadro modal terminará la aplicación. En tu ejemplo usas Application.CreateForm luego de cerrar la ventana de acceso y entonces frmprincipal será el formulario principal y la aplicación terminará en cuanto se cierre.

He buscado un hilo donde se hablaba de esto pero no lo encuentro así que repito.

Puede crearse una aplicación con dos formularios, ninguno de los cuales sea el principal y sin que la aplicación se cierre al cerrar uno de ellos. Para ello, alteren el archivo dpr de manera que se vea así:

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Form1 := TForm1.Create(Application);
  Form2 := TForm2.Create(Application);

  repeat
    try
      Application.HandleMessage;
    except
      Application.HandleException(Application);
    end;
  until Application.Terminated;
end.

El caso es que Application.CreateForm establece la propiedad MainForm de Application la primera vez que se usa y Application.Run es un ciclo como el de arriba que no termina sino hasta que Application.Terminated es true.

El método Close de TForm (de hecho de TCustomForm) verifica sí es el MainForm y en caso afirmativo llama a Application.Terminate quien a su vez pone Application.Terminated en true, ocasionando que se termine el ciclo de Application.Run.

Ahora, en el ejemplo que doy, hay entonces que dar una forma alternativa de cerrar la aplicación, alguna parte donde se llama a Application.Terminate.

He hecho la prueba poniendo esto en el evento OnClose de ambos formularios:

Código Delphi [-]
  if Screen.FormCount = 1 then
    Application.Terminate;

  Action := caFree;

Si ambos formularios están abiertos, Screen.FormCount será igual a 2, así que lo único que pasa es que el formulario que se cierra se destruye.

Pero si ya se cerró uno, Screen.FormCount será igual a 1, de manera que se ejecutará Application.Terminate.

Como mencioné (creo) en el hilo que no encuentro, desconozco qué efectos colaterales pueda tener el no ejecutar Application.Run, así que habrá que tomarlo con reserva.

// Saludos