Ver Mensaje Individual
  #3  
Antiguo 03-05-2005
Avatar de Durbed
Durbed Durbed is offline
Miembro
 
Registrado: ago 2004
Posts: 166
Reputación: 20
Durbed Va por buen camino
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.
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5
Responder Con Cita