Problema al cerrar ventana de login

[steelha]

Muchas gracias por los comentarios me ayudaron. Pero como soluciono el problema de desplegar la ventana del form principal ya que al hacer close se cierra todo y no se ejecuta la aplicacion ... por lo cual aun no entiendo esta parte :

Código Delphi [-]
program prIglesia;

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

var
  loginform, pprincipal : TForm;

{$R *.res}

begin
  Application.Initialize;

  LoginForm := TfrmLogin.Create(Application);
  if LoginForm.ShowModal = ID_OK then
  begin
    LoginForm.Free; // o LoginForm.Hide
    Application.CreateForm(Tfrmprincipal, frmprincipal);
  end;

  Application.Run;
end.

se supone deberia abrir la form principal despues de logeada, pero no sucede eso simplemente se cierrar toda la aplicacion

[[maeyanes]]

Hola...

No estoy muy seguro y no tengo forma de comprobarlo ahora, pero el problema puede ser la forma en como comparas el resultado de ShowModal. Prueba con:

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

Saludos...

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

[roman]

Empezado por steelha

se supone deberia abrir la form principal despues de logeada, pero no sucede eso simplemente se cierrar toda la aplicacion

Posiblemente la condición

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

no se cumple y si eso es así es porque no estás poniendo ModalResult = mrOk en ningún lado. Usualmente esto se hace poniendo la correspondiente propiedad en el botón de Aceptar del LoginForm.

// Saludos