Fórum Tela de Abertura #204860
07/01/2004
0
E ai pessoal vocês podem me dizer como é que eu faço uma tela de abertura de programa tipo assim quando o programa for aberto aparecer nomes ´ tipo uma pequena animação´ grato
Pacelly
Curtir tópico
+ 0
Responder
Posts
07/01/2004
Luizfernando777
isso tem que ser no seu project
FAbertura := TFAbertura.create(Application);
try
FAbertura.Show;
FAbertura.Update;
Application.CreateForm(TFCentral, FCentral);
Application.CreateForm(TDM, DM);
finally
FAbertura.Hide;
FAbertura.Free;
end;
Application.Run;
FAbertura := TFAbertura.create(Application);
try
FAbertura.Show;
FAbertura.Update;
Application.CreateForm(TFCentral, FCentral);
Application.CreateForm(TDM, DM);
finally
FAbertura.Hide;
FAbertura.Free;
end;
Application.Run;
Responder
Gostei + 0
07/01/2004
Nigro
Após ter criado o Form principal da sua aplicação, crie um outro form para ser a Splash
Screen. Vamos chamar este form de Frm_Splash (isto é só uma sugestão, coloque o
nome que você quiser).
Edite o fonte do projeto, clicando no menu VIEW e na opção PROJECT SOURCE.
Encontre a linha onde a Splash Screen é criada e apague-a.
A linha que deve ser apagada deve estar mais ou menos assim:
begin
...
Application.CreateForm(TFrm_Splash, Frm_Splash); // Apague esta
linha
...
Insira as linhas abaixo antes da criação de qualquer form:
begin
Frm_Splash := TFrm_Splash.Create(Application);
Frm_Splash.Show;
Frm_Splash.Update;
Application.Initialize;
...
{ Criação dos outros Forms }
...
Frm_Splash.Hide;
Frm_Splash.Free;
Application.Run;
Screen. Vamos chamar este form de Frm_Splash (isto é só uma sugestão, coloque o
nome que você quiser).
Edite o fonte do projeto, clicando no menu VIEW e na opção PROJECT SOURCE.
Encontre a linha onde a Splash Screen é criada e apague-a.
A linha que deve ser apagada deve estar mais ou menos assim:
begin
...
Application.CreateForm(TFrm_Splash, Frm_Splash); // Apague esta
linha
...
Insira as linhas abaixo antes da criação de qualquer form:
begin
Frm_Splash := TFrm_Splash.Create(Application);
Frm_Splash.Show;
Frm_Splash.Update;
Application.Initialize;
...
{ Criação dos outros Forms }
...
Frm_Splash.Hide;
Frm_Splash.Free;
Application.Run;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)