Problema al cerrar ventana de login

[ecfisa]

Hola.

Estaba mirando el código y el origen de la excepción es que en el proyecto, steela hace la creación sobre la variable LoginForm:

Código Delphi [-]
begin
  Application.Initialize;
  LoginForm := TfrmLogin.Create(Application);
  ...

Pero luego, y dentro de él libera a frmLogin:

Código Delphi [-]
   ...
   else
     frmLogin.Close;

Y como no existe una instancia de frmLogin de allí la excepción. Confusión esta que queda solapada si se llama directamente al método Close o a Self.Close ya que de ese modo se libera a la instancia correcta.

Saludos.

[steelha]

ok probare en unos minutos aca hay mucho trabajo hoy
y debo entregar esta aplicacion en 3 horas a mas tarda T_T espero terminar a tiempo gracias por la ayuda

[roman]

Creo que esto es lo que observó luisgutierrezb en el mensaje #10.

// Saludos

[ecfisa]

Empezado por roman

Creo que esto es lo que observó luisgutierrezb en el mensaje #10.

// Saludos

Tenes razón, no ví el mensaje o no le presté atención... mis disculpas Luis


Saludos.

[steelha]

Probe con colocar segun opiniones lo siguiente

Código Delphi [-]
 if LoginForm.ShowModal = mrOk

pero consigo el siguiente mensaje
[Error] prIglesia.dpr(18): Undeclared identifier: 'mrOk'

Me imagino que es una variable la cual debo declarar pero:
1.- que tipo de variable debe ser
2.- que como desde el form de login le paso un valor x si se da la coincidencia de usuario
(si lo se como que pregunto mucho)

Gracias por su ayuda
Saludos :P

[ecfisa]

Hola steela.

pero consigo el siguiente mensaje
[Error] prIglesia.dpr(18): Undeclared identifier: 'mrOk'

Tenes que incluir la unidad Controls.

Código Delphi [-]
uses ..., Controls;

Y lo que te comentó roman es que cuando la contraseña sea correcta hagas:

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

Edito: (No sé si te referías a eso en tu última pregunta).

Saludos.

[steelha]

Muchas gracias por la ayuda, al final tube que hacer una modificacion para que funcionara

Código Delphi [-]
program prIglesia;

uses
  Forms,
  Windows,
  Controls,
  uPrincipal in 'uPrincipal.pas' {frmprincipal},
  ufrmlogin in 'ufrmlogin.pas' {frmLogin};

{$R *.res}

begin
  Application.Initialize;

  frmLogin := TfrmLogin.Create(Application);
  frmLogin.ShowModal;
  if mrOk = 1 then  //anteriormente if frmlogin.showmodal = mrok
  begin
    frmLogin.Hide; // o LoginForm.Hide
    Application.CreateForm(Tfrmprincipal, frmprincipal);
  end;

  Application.Run;
end.

Gracias, Gracias por toda la ayuda ... no sera la ultima
pero aprendi algo hoy ... una simple linea te puede costar todo un dia de malhumor
Gracias roman, ecfisa, maeyanes

[licha]

Hola.
Estoy haciendo una ventana de iniciar sesion. La puse como form principal, pero al ocultarla (visible en false) se desaparece la aplicacion de la barra de herramientes. Queria saber si pudieran explicarme como hacer para que no suceda eso.
Aclaro que el inicio de sesion, la persona se logea con dni y password; y, segun su rol (que esta en la base de datos), se desplega la ventana adecuada. Esto lo hice, pero al ocultar la ventana de login, se desaparece de la barra de herramientas y no resulta practico... jajaja.
Estoy buscando la solucion al problema

Gracias

[roman]

Empezado por steelha

Código Delphi [-]
  if mrOk = 1 then  //anteriormente if frmlogin.showmodal = mrok

Esto no es correcto. mrOk es una constante cuyo valor es 1, de manera que la comparación siempe será cierta aún cuano el login no sea correcto.

// Saludos