Criando tela de Splash no Delphi
Nesse tutorial, vou escrever um pequeno passo a passo para a criação de uma tela de splash no delphi 2010.
Requisitos :
Sistema Operacional : Windows 7
Delphi 2010 - http://www.embarcadero.com/br
Passo nº 1
Abra o Delphi e no menu "File" vá em "New" e em seguida "Vcl Forms Application-Delphi".
Passo nº 2
Depois que abrir a Form altere a largura e altura da Form para o tamanho que você quiser, pode ser pelo
mouse diretamente ou à sua esquerda na "Object Inspector" alterando as propriedades.
É possível alterar a altura em "Height" e a largura em "Width".
Depois disso, á sua direita encontra-se a "Tool palette" aonde podemos encontrar os componentes que serão necessários para a Form.
No campo de busca da "Tool palette" digite "TImage" e arraste-a para a Form.
Passo nº 3
Ajuste a "TImage" ao tamanho da Form.
Volte na "Object Inspector" e vá na propriedade "Picture" e selecione a imagem de sua preferência para ficar no fundo da tela de splash.
Passo nº 4
Depois de colocar a imagem de fundo, você pode adicionar um pequeno texto na tela splash. Para isso vá em "Tool palette" e digite no campo de busca "TLabel" e arraste-a para a Form.
Depois ajuste-a com a fonte e o tamanho que achar necessário em "Object Inspector"
alterando as propriedades "Font" , "height" e "width".
Para editar o texto contido na "TLabel" vá na propriedade "Caption" em "Object Inspector".
Após isso você pode personalizar com textos de sua preferência.
Passo nº 5
Clique na Form e vá em "Object Inspector" e selecione a seguinte propriedade:
"BorderStyle" e selecione o valor " bsnone ".
Isso vai retirar a borda da tela.
Passo nº 6
Vá em "Tool palette" e digite "TTimer" e arraste-o para qualquer parte da Form,
ele não será exibido na hora da execução.
Ainda na "Tool palette" digite no campo de busca "TProgressbar" e coloque-o na Form.
Dê dois cliques sobre o relogio(TTimer) que esta na Form e abrirá-se a Unit que é aonde colocaremos o código.
Digite o seguinte código:
TForm3.Timer1Timer(Sender: TObject);
(TForm3 é o nome da nossa Form, esse nome pode variar de acordo com o nome que o Delphi nomear por padrão)
begin
TProgressbar.Position := 10;
sleep(100);
TProgressbar.Position := 20;
sleep(500);
TProgressbar.Position := 30;
sleep(200);
TProgressbar.Position := 40;
sleep(300);
TProgressbar.Position := 50;
sleep(1000);
TProgressbar.Position := 60;
sleep(2000);
TProgressbar.Position := 70;
sleep(700);
TProgressbar.Position := 80;
sleep(800);
TProgressbar.Position := 90;
sleep(900);
TProgressbar.Position := 100;
sleep(1000);
(* Este trecho Termina a tela de carregamento *)
Form3.Close; (Nome da Form com comando close)
(* Fecha a tela de carregamento *)
end;
Passo nº 7
Depois salve seu projeto em "File" > "Save project as", dê um nome ao projeto que vai estar com o nome "Unit" e quando abrir a
segunda tela para salvar , não feche, aperte salvar novamente.
Após fazer isso , você pode executar seu projeto com o botão "Run"
localizado no menu superior ou apertar F9.
Quando executado na primeira vez, será gerado o executável dele na pasta aonde você salvou. Para executar em outro Pc é só copiar o executavel dele (.exe).
Pronto terminamos aqui esse pequeno passo a passo , até a próxima.
