Como Criar Um Splah Screen

[Guest Halan Lopes]

alguém sabe como criar um splash screen, aquela janelinha que fica aberta enquanto o programa carrega!

[OSJunior]

A melhor maneira de criar um SplashScreen para seu projeto, fácil e rápido!

1º ) Crie um novo projeto no Delphi ;

2º ) O Fom 1 que se abriu , será o formulário principal, salve e crie um novo form, form2;

3º ) Coloque no form2 um Panel , um TTimer, altere o align do Panel para Client;

4º ) O form2 , será no Splash , então nele coloque o essencial que não pode faltar , uma Gauge ou se preferir uma Progress Bar .

5º ) Enfeite como quiser o seu Panel , ou seja , sua splash deixe com um visual profissional!

6º ) No evento OnCreate do form2 , coloque :

--------------------------------------------------------------

begin

Timer1.enabled:=True;

end;

--------------------------------------------------------------

7º ) Agora na propriedade Timer do nosso TTimer mude de 1000 para 100 ;

8º ) No Evento OnTimer do nosso TTimer coloque :

--------------------------------------------------------------

begin

Gauge1.Progress := Gauge1.Progress+1;

if Gauge1.Progress = 100 then

begin

form2.close; {antes estava form1.close;}

end;

end;

--------------------------------------------------------------

9º ) No evento OnCreate do forn1 coloque!

form2 := Tform2.Create(Self);

form2.Showmodal;

Pronto!