Buscar por:

Splashform

Código

Pessoal,

Estive pesquisando diversas formas de elaborar um SplashForm para Delphi..

Espero q esta contribuição auxilie vós:

1º ) Crie um novo projeto no Delphi ;

2º ) O Fom 1 que se abriu , será o formulário principal;

3º ) Coloque nele um Panel , um TTimer;

4º ) O Panel , 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 ; ( Obs.: Vale lembrar que é essêncial um bom disign nesta parte do projeto pois uma splash é o rosto do programa que está desenvovendo !

6º ) No evento OnActive do form , coloque :

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

begin

Form1.enabled:=False;

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

Panel1.Visible:=True;

Gauge1.Progress=Gauge1.Progress+1;

if Gauge1.Progress=100 then

begin

Form1.Enabled:=True;

Timer1.Enabled:=False;

end;

end.

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

Fonte: 

http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=86

Thyago Medeiros