Cerrar dos formularios creados dinamicamente (al mismo tiempo)

[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.