Criando Splash

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 :

[/color]

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
form1.close;
end;
end;

9º ) No evento OnCreate do forn1 coloque!

form2 := Tform2.Create(Self);
form2.Showmodal;

Creditos:Mr.Positive(Criador) ~Dio(Por Ter Compartilhado Com A WDHP)