Cita:
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
Cita:
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