5 replies to this topic

[JRichard]

Hola a todos, acudo a ustedes nuevamente para ver si me ayudan a resolver el siguiente inconveniente:

Estoy desarrollando una aplicación MDI, el Form padre ya esta listo junto con sus Form hijos, ahora lo que necesito es saber como puedo hacer para abrir este Formulario Padre a partir de un formulario normal que me permita loguearme primero, comprobar si el usuario existe en la base de datos y si existe abrir el Formulario padre y cerrar el Formulario de Inicio de Sesión.
Lo estoy intentando con un Formulario tipo fsNormal el cual tiene una botón aceptar al presionarlo conecto con la BD verifico la existencia del usuario pero luego de verificar que el usuario si existe, se abre y se cierra de una vez el FormPadre de la aplicación MDI. Les agradecería una manito.! 

[Fenareth]

Amigo JRichard...

Muéstranos el código donde estás validando al usuario para ver cómo estás cerrando el formulario y que te está generando el comportamiento que no quieres 

Saludox !

[Rolphy Reyes]

Saludos.

Échale una mirada a este tutorial del maestro Caral.

[JRichard]

Hola, aquí esta el código que me genera el problema.! Le aplique lo que aparece en el tutorial del maestro Caral que me sugirió Rolphy pero me sigue dando el problema.

Este es el trozo de código donde creo el MDI a partir de un formulario de inicio de Sesión.!

delphi

procedure TfrmInicio.botonIniciarSesionClick(Sender: TObject); //HAGO CLICK EN EL BOTON INICIAR SESION
begin
  if validar then //AQUÍ LLAMO A UNA FUNCIÓN QUE ME VALIDA QUE LOS CAMPOS ESTEN LLENOS
    begin
      if buscarUsuario then //AQUí LLAMO A OTRA FUNCIÓN QUE ME DIRA SI LOS DATOS INTRODUCIDOS SON CORRECTOS
        begin
          uFunciones.mensajeInformacion('Acceso Autorizado.!','Información'); //AQUÍ ENVÍO UN MENSAJE EN CASO DE QUE LOS DATOS SEAN CORRECTOS
          frmMenuPrincipal := TfrmMenuPrincipal.Create(Self); //CREO EL OBJETO DE LA CLASE MENUPRINCIPAL QUE ES UN  MDI
          try
            frmMenuPrincipal.sqlConexion := sqlConexion; //LE PASO LA CONEXIÓN A LA BASE DE DATOS
            frmInicio.Visible := false; //COLOCO EL FORMULARIO DE INICIO DE SESIÓN NO VISIBLE
            frmMenuPrincipal.Show; //MUESTRO EL MDI
          finally
            frmMenuPrincipal.Free;
          end;
        end
      else     //EN DADO CASO QUE LOS DATOS NO SEAN CORRECTOS PASA LO SIGUIENTE
        begin 
          uFUnciones.mensajeAdvertencia('Acceso Denegado.!','Aviso'); 
          cajaUsuario.Text := '';
          cajaUsuario.SetFocus;
          cajaClave.Text := '';
        end;
    end;
end;

Necesito que al cerrar el formulario de Inicio de Sesión se me abra el Form MDI y que los formularios hijos del MDI se puedan ver, pero al hacer esto el formulario se muestra por unas cuantas milésimas de segundos y se cierra junto con el de Inicio de Sesión. 

[escafandra]

Revisa este tema.


Saludos.

[JRichard]

MUCHÍSIMAS GRACIAAAASSSSS ESCAFANDRA.!  Me sirvió al pelo