Tutorial Criando tela de apresentação

[L3ND4URB4N4']

O que é Tela de Apresentação ?

É aquela tela que aparece antes do programa inciar, ficar por alguns segundos e fexa Exemplo: a da Borland qdo agente vai abrir o Delphi Aparece "Borland" depos fecha e abre o Delphi.

1- Em Propriedades de seu form Coloque o BordStyle em BsNone como a Imagem abaixo.OBS: Isso é Para Tirar a Barra de TituloImagem
2- Ainda nas propriedades Coloque o Position em "Desktop Center"OBS: para a tela Ficar no meio

3- Adicione uma Progress Bar (Aba Win32). Renomeie ela para "bar".
4- Adicione outros Componentes da forma que desejar.Exemplo: Label, Imagens, Textos, Creditos)
5-Adicione Um XPManifeste (Aba win32)OBS: So Pra Fica Melhorzinho
6- Colokaremos um TTimer, deixe o interval dele em 1000OBS: Nele Colocaremos o Cod que fara com q a Progress bar Carregue o Programa
7- De 2 Cliques no TTimer e Add este Código

bar.Position:=10;sleep (100);bar.Position:=20;sleep (100);bar.Position:=30;sleep (100);bar.Position:=40;sleep (100);bar.Position:=50;sleep (100);bar.Position:=60;sleep (100);bar.Position:=70;sleep (100);bar.Position:=80;sleep (100);bar.Position:=90;sleep (100);bar.Position:=100;sleep (100);form2.show;form1.enabled:=false;form1.Visibl e:=false;timer1.Enabled:=false;

8 - Agora Iremos Criar o Form Aonde será feito o programa. vá em File → New → Form
9 - No Evento OnClose do form2 Vcs irao Colocar Esté Codigo

Formclose

OBS: NUNCA apenas copie um codigo, leia ele e entenda, para que caso haja erro, voces saibam o ke deu errado, o nome dos forms e dos itens no programa sao muito importantes.


OBS: Se Forem Almentar o Tempo da Progress Bar Vc deve Mudar o Timer e o cod da progress bar

Exemplo : Assim que voce coloca o TTImer o Intervalo dele é de 1000
Se Voce Colocar 2000 Voce Terá que Fazer Assim No Codigo

bar.Position:=10;sleep (200);bar.Position:=20;sleep (200);bar.Position:=30;sleep (200);bar.Position:=40;

e Assim por diante.
Resumindo o Valor que voce colocar no Timer deve ser Divido para Ser Colocado no cod da Progressbar.
no caso foi 2000 dividido por 10 ( se perceber a progress bar vai de 10 em 10 até 100) que deu 200 pra cada.
Vlw Acaba por Akii (: