SPLASH

Delphi

21/02/2003

Tenho um form splash com o seguinte código:

Application.Initialize;
Application.Title := ´Havilux´;
Application.CreateForm(TFrmMenu, FrmMenu);
Application.CreateForm(TFrmAcess, FrmAcess);
Application.CreateForm(TFrmSplash, FrmSplash);
FrmSplash.Show;
FrmSplash.Update;
Application.CreateForm(TDatHavilux, DatHavilux);
Application.Run;

O form TFrmMenu tem o formStyle = fsMDIForm

O form splash aparece e não desaparece, e antes que frmmenu aparecesse quero que o FrmAcess apareça (form de senha)
Como faço?


Anonymous

Anonymous

Curtidas 0

Respostas

Marcelo

Marcelo

21/02/2003

Tente o seguinte código...

Application.Title := ´Havilux´;
Application.CreateForm(TFrmSplash, FrmSplash);
FrmSplash.Show;
FrmSplash.Update;
FrmSplash.Free;
Application.Initialize;
Application.CreateForm(TFrmMenu, FrmMenu);
Application.CreateForm(TFrmAcess, FrmAcess);
FormAcess.ShowModal;
Application.Run;

Se não de certo, me avise!!!


GOSTEI 0
POSTAR