Tela de Abertura

Delphi

07/01/2004

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

Pacelly

Curtidas 0

Respostas

Luizfernando777

Luizfernando777

07/01/2004

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;


GOSTEI 0
Nigro

Nigro

07/01/2004

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;


GOSTEI 0
POSTAR