Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema al cerrar ventana de login (https://www.clubdelphi.com/foros/showthread.php?t=79005)

steelha 02-06-2012 01:28:42

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 02-06-2012 02:06:53

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 04-06-2012 17:14:59

Cita:

Empezado por steelha (Mensaje 434126)
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


La franja horaria es GMT +2. Ahora son las 10:31:17.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi