Splash Screen

Delphi

19/07/2003

Gostaria de uma dica de como posso fazer um Splash Screen no meu sistema.

Desde ja agradeço.


Um Abraço

Wesley


Wesleyfsf

Wesleyfsf

Curtidas 0

Respostas

Obubiba

Obubiba

19/07/2003

Primeiramente, crie dos Forms, um será a tela de apresentação e o outro será o form principal da aplicação.

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
Titanius

Titanius

19/07/2003

Bem, falo por experiencia própria, é muito chato tu ficar esperando o form abrir... caso tu ponha o Timer, obrigatoriamente o form irá demorar muito pra abrir, isso poderia irritar e muito seu cliente, já que se o programa pode abrir rápido poque não abrir? Segue um pequeno exemplo que ele soh mostra o SplashScreen quando o o Project está criando os Forms, ou seja, só mostrar quando é necessário...


...

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
Del

Del

19/07/2003

Fantástico...
Vocês são d+.
Abraços.


GOSTEI 0
POSTAR