Problemas con el form de Inicio de Sesión

[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.

[rubio]

Gracias ecfisa, problema resuelto.

[roman]

Por cierto, puedes ahorrate el código si al botón con el que cierras le pones su propiedad ModalResult en mrOk. Esto lo puedes hacer en el inspector de objetos.

// Saludos