Ver Mensaje Individual
  #1  
Antiguo 20-01-2010
Kenobi Kenobi is offline
Miembro
 
Registrado: mar 2007
Posts: 191
Reputación: 20
Kenobi Va por buen camino
error con form de acceso al sistema

Hola amigos ...tengo el siguiente problema

tengo un form para acceder al sistema ....
Código Delphi [-]
Application.Initialize;
  Application.MainFormOnTaskbar := True;
      Application.CreateForm(TDataAreas, DataAreas);


  frmLogin:=TFrmLogin.Create(Nil);
  if FrmLogin.ShowModal=mrYes then
   begin


   Application.CreateForm(TFrmPrincipal, FrmPrincipal);
..
..
..
..
.. // el resto de los formularios 
  Application.Run;

  end;

si ejecuto dicho codigo y no me logeo (modalresult distinto a mrok )sea por cerrar el form con el boton de cerrar me da el siguiente error .....

access violation on address xxxx in module xxxx Read of address xxxxx

si coloco la siguiente linea
Código Delphi [-]
Application.CreateForm(TDataAreas, DataAreas);
dentro del
if FrmLogin.ShowModal=mrYes then todo funciona bien... sin embargo quiero llamar antes del form de acceso a dicho form DataAreas porque el el modulo de datos y lo necesito activo para consultar el usuario....

espero que me puedan ayudar ....

Gracias ....
Responder Con Cita