Criando Splash

por Mr.Positive Qua Jan 12, 2011 4:55 pm

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 :

Código:
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 :

Código:
begin Gauge1.Progress := Gauge1.Progress+1; if Gauge1.Progress = 100 then begin form1.close; end; end;

9º ) No evento OnCreate do forn1 coloque!

Código:
form2 := Tform2.Create(Self); form2.Showmodal;