Fórum Splash Screen #170278

19/07/2003

0

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

Desde ja agradeço.


Um Abraço

Wesley


Wesleyfsf

Wesleyfsf

Responder

Posts

19/07/2003

Obubiba

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.


Responder

Gostei + 0

20/07/2003

Titanius

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

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


Responder

Gostei + 0

19/07/2005

Del

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


Responder

Gostei + 0

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

Aceitar