Cerrar Formulario

[jjmtzhdz]

Hola. Soy nuevo en el Foro y espero que puedan ayudarme a despejar mi duda.

Cuento con un formulario (frmUno) con un botón que crea y muestra un nuevo formulario (frmDos). Mi problema es que no puedo cerrar el frmUno sin cerrar el frmDos.

Tengo lo siguiente:

procedure TfrmUno.btnCrearNuevoClick(Sender: TObject);
begin

   frmDos := TfrmDos.Create(nil);
   frmDos.Show;

   frmUno.Close; { <-- Al hacer esto se cierra el frmUno, pero llevándose consigo al frmDos. }

end;

Sé que puedo simplemente ocultar al primero con un frmUno.Hide; pero si hago esto, al cerrar el segundo formulario la aplicación no termina, ya que el primero queda ejecutándose.

¿Alguien me ayuda?

[ecfisa]

Hola jjmtzhdz y bienvenido a Club Delphi .

Si frmUno es el form principal, sencillamente termina la aplicación y por lo tanto frmDos (y cualquier otro que esté abierto) se cerrará también.

En cambio, funcionaría sin problemas si hicieras:

Código Delphi [-]
procedure TfrmDos.btnCrearNuevoClick(Sender: TObject);
begin
  frmTres := TfrmTres.Create(nil);
  frmTres3.Show;
  Close
end;

Saludos.

[[nlsgarcia]]

jjmtzhdz,

Revisa en el ejemplo anexo al formulario principal frmMain, el cual por opciones de menú crea a los formularios frmUno y frmDos permitiendo de esta forma abrir y cerrar selectivamente a cualquiera de estos, liberar en el evento OnClose de cada formulario sus recursos de memoria y finalizar la aplicación al momento de cerrar frmMain o usar la opción Exit.

Espero sea útil

Nelson.

[donpedro]

no puedes cerrar el formulario principal, porque estarias cerrando toda la aplicacion....
explica mejor que quieres hacer.... si lo que quieres es abrir formularios dentro del principal yo te recomendaria crear mdiform y luego crearles los formularios child(hijos)

[jjmtzhdz]

Hola. Muchas gracias por su ayuda.

Aprecio mucho su atención, pero el hecho es que no he resuelto el asunto. En los ejemplos que tan amablemente han mostrado, el formulario desde el cual se crea al segundo sigue en activo, y ese es precisamente el meollo de mi inquietud.

Lo que deseo hacer es que al crear y mostrar un segundo formulario el primero cierre totalmente, descargándolo por completo de la memoria. Algo parecido a lo que propone ecfisa, pero con sólo dos formularios.

Entiendo que al ser el primer formulario el principal, al cerrarlo cierre por completo la aplicación; pero tiene que haber alguna manera de pasar el "protagonismo" al segundo formulario; inclusive recuerdo haberlo hecho en el viejo VB6 con Show y Unload Me, si mi memoria no me falla. ¡En Delphi tiene que ser posible!

[ecfisa]

Hola jjmtzhdz.

Aunque creo que no es exáctamente lo que estas buscando, revisa este enlace: Change the MainForm at runtime?.

Saludos.

[[nlsgarcia]]

jjmtzhdz,

Empezado por jjmtzhdz

Entiendo que al ser el primer formulario el principal, al cerrarlo cierre por completo la aplicación; pero tiene que haber alguna manera de pasar el "protagonismo" al segundo formulario; inclusive recuerdo haberlo hecho en el viejo VB6 con Show y Unload Me, si mi memoria no me falla. ¡En Delphi tiene que ser posible!

Revisa este código tomado del link http://www.swissdelphicenter.ch/torr...ode.php?id=665, que ecfisa sugirió:

Código Delphi [-]
// Cambia el formulario principal en Runtime.
procedure SetAsMainForm(aForm:TForm);
var
  P : Pointer;
begin
  // Dirección del Formulario Principal
  P := @Application.Mainform;
  // Cambia la Dirección del Formulario Principal
  Pointer(P^) := aForm;
end;

El código anterior permite cambiar el formulario principal en runtime y esta implementado en el ejemplo anexo en la forma que señalas en tu requerimiento.

Espero sea útil

Nelson.

[jjmtzhdz]

La solución referenciada funcionó perfectamente.

Les agradezco mucho la atención, el tiempo y la calidad de sus respuestas; me han servido mucho.

Muchas gracias. Nos escribiremos pronto.