Cerrar dos formularios creados dinamicamente (al mismo tiempo)

[yusnerqui]

Código Delphi [-]
frmForm2 := TfrmForm2.Create(Self);
                     with frmForm2 do begin
                     showModal;
                     end;
close

o si lo prefieres

Código Delphi [-]
frmForm2 := TfrmForm2.Create(Self);
                     with frmForm2 do begin
                     showModal;
                     end;
if quierocerrar then
 close;

Espero te ayude.

saludos

[ctronx]

Le agrege la instruccion close al boton del form1 donde esta el codigo para crear el form2 pero cierra el form1 sin mostrar el form2.

Y yo lo que quiero es lo siguiente: tengo a un form1 con un boton que crea a un form2 y este form2 tiene un "boton que debe cerrar ambos formularios".



Gracias.

[__cadetill]

Si usas ShowModal es imposible que cierre el Form1 sin abrir el Form2

Cómo lo estás haciendo? Porque lo del amigo yusnerqui es totalmente correcto

[ctronx]

primero creo el form1 NO modal luego ahi creo el form2 de tipo Modal y estando en el form2 quiero cerrar el form2 (Modal) y el form1 que no es modal.

[jachguate]

Si form1 llama a form2 de forma modal, no podes desde este cerrar a form1...

Sin embargo, podes hacer que se cierre form2 y en form1 evaluar una condición para cerrarlo.

En form2, por ejemplo, al pulsar el botón:

Código Delphi [-]
Procedure TForm2.Button1Click(Sender : TObject);

Begin
  ModalResult := mrYes; //por ejemplo, obliga a que se cierre form2
end;

En form1, creas form2, y cerras form1 asi:

Código Delphi [-]
Procedure TForm1.Button1Click(Sender : TObject);

Begin
  Form2 := TForm2.Create(Self);
  if Form2.ShowModal = mrYes Then
    Close;
end;

Dejando siempre los eventos OnClose como están.

Hasta luego.

[__cadetill]

Empezado por jachguate

Si form1 llama a form2 de forma modal, no podes desde este cerrar a form1...

Pero es que la solución propuesta por Yusnerqui no cierra Form1 desde Form2

Empezado por jachguate

Código Delphi [-]
Procedure TForm1.Button1Click(Sender : TObject);
Begin
  Form2 := TForm2.Create(Self);
  if Form2.ShowModal = mrYes Then
    Close;
end;

No hace falta hacer la evaluación esta si SIEMPRE se ha de cerrar Form1 al cerrar Form2, puedes hacer un close directo (como ya proponia Yusnerqui)

Código Delphi [-]
Procedure TForm1.Button1Click(Sender : TObject);
Begin
  Form2 := TForm2.Create(Self);
  Form2.ShowModal;
  Close;
end;

Al ser Modal, no llegará nunca a la linea del Close hasta que Form2 no se haya cerrado

[ctronx]

Gracias, por fin se pudo, estaba sencillo pero habia interpretado mal sus explicaciones, la explicación de Cadetill la entendi mejor y funciono sin problemas.