Fórum Splash Screen #170278
19/07/2003
0
Desde ja agradeço.
Um Abraço
Wesley

Wesleyfsf
Curtir tópico
+ 0Posts
19/07/2003
Obubiba
Deixe a aplicação criar apenas o form de apresentação, e tire o form principal, que pode ser feito de duas maneiras:
1 - View - Units - NomeDoProjeto - e apague a linha Application.CreateForm(TFormPrincipal, FormPrincipal); ou
2 - Menu Project - Options - Aba Forms, mova o form principal da lista AutoCreate Forms para Available Forms.
Depois, defina a propriedade [i:6b47bc98b8]BorderStyle[/i:6b47bc98b8] do Form de apresentação para [b:6b47bc98b8]bsNone[/b:6b47bc98b8].
Adicione um componente Timer no Form de apresentação, e defina [i:6b47bc98b8]Enabled[/i:6b47bc98b8] para [b:6b47bc98b8]False[/b:6b47bc98b8] e [i:6b47bc98b8]Interval[/i:6b47bc98b8] para [b:6b47bc98b8]5000[/b:6b47bc98b8].
Ponha o que quiser para enfeitar o form de apresentação.
No OnShow do form de apresentação ponha:
Timer1.Enabled := true;
No OnTimer do Timer ponha:
Application.CreateForm(TFormPrincipal, FormPrincipal);
FormApresentacao.Hide;
No OnHide do form de apresentação ponha:
FormPrincipal.Show;
E não esqueça de adicionar a unit do FormPrincipal na cláusula uses da unit do form de apresentação.
Gostei + 0
20/07/2003
Titanius
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ... begin Application.Initialize; Application.Title := ´Sistema de Controle de Estoque´; FrmSplash := TFrmSplash.Create(Application); FrmSplash.Show; FrmSplash.Update; Application.CreateForm(TForm1, Form1); FrmSplash.Update; Application.CreateForm(TDM, DM); FrmSplash.Update; Application.CreateForm(TFrmRelOptProdGeral, FrmRelOptProdGeral); FrmSplash.Hide; FrmSplash.Free; Application.Run; |
Eu utilizo o FrmSplash.Update após cada criação do form para poder dar um refresh na tela... vartia a gosto de cada um...
Ah! vale lembrar que tu tens que tirar a linha de código q cria o SplashScreen e tambem:
FrmSplash - Form de Apresentacao
Qualquer duvida estamos aí.
Força Sempre...
Gostei + 0
19/07/2005
Del
Vocês são d+.
Abraços.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)