Ver Mensaje Individual
  #2  
Antiguo 30-06-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Debes crear y mostrar el splash y la forma de acceso en el archivo dpr del proyecto manualmente:

Código Delphi [-]
FormaSplash := TFormaSplash.Create(nil);
FormaSplash.ShowModal;
FormaSplash.Free;

FormaAcceso := TFormaAcceso.Create(nil);
Ok := (FormaAcceso.ShowModal = mrOk);
FormaAcceso.Free;

if Ok then
begin
  Application.CreateForm(TFormaPrincipal, FormaPrincipal);
  Application.Run;
end;

Lo importante a notar aquí son tres cosas:

1. Las formas Splash y de Acceso no las debes crear con Application.CreateForm o de lo contrario Delphi pensará que son la forma principal y terminará la ejecución cuando las cierres.

2. La forma principal y Application.Run deben ejecutarse sólo si la ventana de acceso determina que los datos son correctos, de otra forma simplemente se termina la ejecución.

3. Si la forma de acceso requiere acceso a alguna base de datos para la autenticación del usuario y tienes tus tablas en un DataModule debes dejar que éste se cree antes.

Por otra parte ambos temas (splash y acceso) se han tratado varias veces de manera que puedes hacer una búsqueda pra encontrar oras ideas.

Una cosa más: La forma splash debe tener algún Timer para cerrarse luego de un tiempo y poder dar paso a lo siguiente.

// Saludos
Responder Con Cita