Sigue sin funcionar bien, a ver que es lo que pasa. Este es el código que tengo en el .dpr:
Código:
Var
Respuesta: Integer;
begin
Application.Initialize;
Application.CreateForm(TDMAgenda, DMAgenda);
Application.CreateForm(TDMHacienda, DMHacienda);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TFLogin, FLogin);
Application.CreateForm(TFAgenda_MDIChild, FAgenda_MDIChild);
//Creo la ventana modal de la contraseña
Respuesta := FLogin.ShowModal;
if Respuesta = mrOK then
begin
FLogin.Destroy;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
Application.Terminate;
end.
Y el error es una violacion de acceso de memoria, que se produce despues de ejecutar
Application.Terminate; En el Formulario del Login no hago nada aun, es decir que si das al OK pongo mrOK, si das a la X pongo mrAbort.
Un saludo y gracias.