SPLASH

21/02/2003

0

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

Responder

Posts

22/02/2003

Marcelo

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!!!


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar