Criando Splash Screen

[tekitos123 3]

nesse tutu eu irei ensinar a criar uma tela de Splash aquelas telas que abre ao abrir o programa (aquelas igual avira , photoshop , delphi , office etc...)

 

Inicie um novo projeto

 

Mude as propriedes do Form1 para

-Caption = Principal

-Name = frmMain

Salve tudo

 

 

Crie um novo form

Adicione um TImage

Clique em "..." na propriede Picture

Clique em Load para carregar a imagem (no caso eu peguei um logo do google)

Clique em Ok

 

Mude as propriedas do Form2 para

-Name = frmSplash

-BoderStyle = bsNone

-Position = poScreenCenter

 

Minha Splash ficou algo assim :

Salve Tudo

 

Vá em Project->View Source

Adicione a uses SysUtils

 

apague tudo entre o begin e end. e insira o code

begin

Application.Initialize; //inicia a app

frmsplash := Tfrmsplash.Create(Application); //cria o form

frmsplash.Show; //mostra

frmsplash.Update; //atauliza

Sleep(1000); //edite aqui o tempo da splash 1segundo =1000

frmsplash.Hide; //esconde

frmsplash.Free; //libera ele

Application.CreateForm(TfrmMain, frmMain); //aqui cria os demais forms da app no caso só tem um

Application.Run;

end.

 

 

Salve tudo e Compile

[קђ๏єภเא 14]

Desculpe pela noobice mais oque que isso?

[tekitos123 3]

sabe aquela tela q abre quando vc abre o delphi 7???

uma metade azul e branco

então é isso