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