Como ocultar ventana LogIn

[ecfisa]

Hola Diego.

En principio yo no haría que el form de autentificación fuera el principal, Sí lo llamaría desde el evento OnShow del form principal y verificaría la condición de salida para decidir si termina la aplicación o continua.

Más o menos de este modo:

void __fastcall TfrMain::FormShow(TObject *Sender)
{
 frLogin = new TfrLogin(this);
 int ExitResult = frLogin->ShowModal();
 delete frLogin;
 if (ExitResult == mrCancel)  
   Application->Terminate();
}

Previamente hay que quitar frLogin de Proyect->Options->Forms->Auto-create forms.


Un saludo.

[Diego827]

Gracias por responder en cuanto lo pruebe posteo.

Un abrazo.

[[escafandra]]

Algo parecido a la solución de ecfisa es lo que hago yo, pero no en el evento OnShow, pues puede darse mas veces si ocultamos y mostramos el Form.

Yo lo hago en el WinMain:

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
       Application->Initialize();

       TLogin *Log = new TLogin(0);
       if(Log->ShowModal() == mrOk)
          Application->CreateForm(__classid(TForm1), &Form1);
       delete Log;
       Application->Run();
   }
   catch (Exception &exception)
   {
       Application->ShowException(&exception);
   }
   return 0;
}

Una solución a la propuesta de hacerlo en el OnShow es colo car una bandera estática:

void __fastcall TfrMain::FormShow(TObject *Sender)
{
   static bool Primera_vez = true;
   if(Primera_vez){
      frLogin = new TfrLogin(this);
      int ExitResult = frLogin->ShowModal();
      delete frLogin;
      if (ExitResult == mrCancel)  
        Application->Terminate();
      Primera_vez = false;  
   }
}

Aún así, prefiero la primera técnica pues de esa manera nunca se crea el formulario principal.

Saludos.

[Diego827]

Empezado por ecfisa

Hola Diego.

En principio yo no haría que el form de autentificación fuera el principal, Sí lo llamaría desde el evento OnShow del form principal y verificaría la condición de salida para decidir si termina la aplicación o continua.

Más o menos de este modo:

void __fastcall TfrMain::FormShow(TObject *Sender)
{
 frLogin = new TfrLogin(this);
 int ExitResult = frLogin->ShowModal();
 delete frLogin;
 if (ExitResult == mrCancel)  
   Application->Terminate();
}

Previamente hay que quitar frLogin de Proyect->Options->Forms->Auto-create forms.


Un saludo.

Señores, gracias por su tiempo. Les comento: Desconocia el comportamiento real de la funcion ShowModal(); resulta que ahora si es principal la form2 y el login lo deje asi:

Form2 On Show{
form_login->ShowModal();
}

y si era correcto el ingreso, en el form_login se realizaba la operacion:

form_login->close();

y listo.

Gracias por su tiempo amigos!!!