form2 cerrar el form1

[RolphyReyes]

Saludos

Este código me funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Application);
  Self.Free;
  Form2.ShowModal;
end;

Como ves antes de mandar el Modal del Form2, libero el Form1, entonces cuando cierre el Form2 para cerrar la aplicación:

Código Delphi [-]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

Prueba y reporta....

[ingabraham]

Empezado por RolphyReyes

Saludos

Este código me funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
Self.Free;
Form2.ShowModal;
end;





Como ves antes de mandar el Modal del Form2, libero el Form1, entonces cuando cierre el Form2 para cerrar la aplicación:

Código Delphi [-]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;





Prueba y reporta....

gracias

este codigo si me funciona . pero me aparece errror al cerrar con el application.terminate

el error es un problema en memoria read direcc