SPLASH
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?
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
Curtidas 0
Respostas
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!!!
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