Problemas con el form de Inicio de Sesión

[ecfisa]

Hola.

Probá de este modo:

Código Delphi [-]
  Application.Initialize;
  Application.CreateForm(TfrmPrincipal, frmPrincipal);
  Application.CreateForm(TfrmPresenta, frmPresenta);
  Application.ShowMainForm:= False;
  with TfrmAutenticacion.Create(nil) do
  try
    if ShowModal = mrOk then
    begin
      Application.ShowMainForm:= True;
      Application.Run;
    end;
  finally
    Free;
  end;

Saludos.

[[Chris]]

Tienes que ver que si luego de hacer la asignación: frmAutenticacion.ModalResult := mrOk no debes de llamar al procedimiento Close del formulario. En ocaciones muchos cometen el siguiente error (yo lo hacía):

Código Delphi [-]
frmAutenticacion.ModalResult := mrOk;
frmAutenticacion.Close; // Close borra el resultado de ModalResult

Repito, tienes que fijarte que luego de hacer la asignación a la propiedad ModalResult, no llames a Close. Cuando asignas un valor a ModalResult, el formulario se cierra automáticamente por lo que no es necesario la llamada a Close.

Saludos,
Chris

[rubio]

Hola, gracias a ambos por las respuestas, no había respondido ya que estaba de descanso de fin de semana, ecfisa he probado la variante que me mandaste y cuando voay a asignar el valor a ModalResult (frmAutenticacion.ModalResult:=mrOk) me da el siguiente error:



después probé poniendo lo viejo que yo tenía y quitando el Close como lo dice Chris y me funcionó correctamente, vos tenes alguna idea de que puede ser?.

Gracias de antemano.

[rubio]

El error es el siguiente, parece que no se pegó bien:
raised exception class EAccessViolation with message 'Access violation at address004DD3DF in module 'OrdenesCompra'. Write of address 0000024C.

[ecfisa]

Hola.

Mirá, yo no obtengo ninguna excepción así que supongo que el error lo está provocando TfrmPresenta. (unidad que desconozco y no incluí en mi prueba).

Comprobar si el error lo provoca TfrmPresenta es fácil, sólo desactivá la línea de creación:

Código Delphi [-]
  Application.Initialize;
  Application.CreateForm(TfrmPrincipal, frmPrincipal);
  //Application.CreateForm(TfrmPresenta, frmPresenta); // <-
  Application.ShowMainForm:= False;
  with TfrmAutenticacion.Create(nil) do
  try
    if ShowModal = mrOk then
    begin
      Application.ShowMainForm:= True;
      Application.Run;
    end;
  finally
    Free;
  end;

Saludos.

[rubio]

Hola.

Quite frmPresenta tal y como me indicaste y vuelve a dar el error, te digo el error lo da en frmAutenticacion cuando le estoy asignando el valor a la propiedad ModalResult.

Código Delphi [-]
frmAutenticacion.ModalResult:=mrOk;

Ahora si lo hago de esta forma no me da error.

Código Delphi [-]
  Application.Initialize;
  frmAutenticacion:= TfrmAutenticacion.Create(Application);
  if frmAutenticacion.ShowModal=mrOk then
  begin
    Application.CreateForm(TfrmPrincipal, frmPrincipal);
    Application.Run;
  end
  else frmAutenticacion.Free;

Saludos.

[ecfisa]

el error lo da en frmAutenticacion cuando le estoy asignando el valor a la propiedad ModalResult.

Hola.

En lugar de hacer:

Código Delphi [-]
frmAutenticacion.ModalResult:=mrOk;

Hace:

Código Delphi [-]
Self.ModalResult:= mrOk;

O simplemente:

Código Delphi [-]
ModalResult:= mrOk;

Saludos.