Problemas conn el orden en que se muestran las pantallas

roman · #2 30-06-2004

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