Problema al cerrar ventana de login

[luisgutierrezb]

nada mas para complementar la razón, en tu unidad, la forma se llama frmlogin, pero al crearla desde el programa principal le llamas LoginForm, entonces al darle frmlogin.close, te manda al error porque no existe frmLogin, sino LoginForm, como te dijeron arriba, usa el close solamente, debe funcionar bien puesto que ese código esta en un botón...

[[maeyanes]]

Hola...

Vaya, me acabo de dar cuenta de que el código en cuestión está dentro del evento OnClick de un botón y no en el código del FormCreate. Como bien indica roman y parte de lo que le comenté arriba, con solo usar Close o Self.Close se solucionaba el problema.

Eso me pasa por no fijarme bien en el código. Tienes razón roman, el código no es parte del evento FormCreate y por consiguiente, en este caso, lo que comenté al respecto no afecta.


Saludos...

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

[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