Criando Splash-Screen - Delphi 2005 Delphi 7

[iMelo~' 11]

Criando Splash-Screen Delphi 2005

 

No Object Inspector mude essas propriedades:

 

Name: FTelaAbertura

BorderStyle: bsNone

ClientHeight: 250

ClientWidth: 540

Color: clWhite

Position: poScreenCenter

 

Feito isso, salve a unit, salvei aqui como uTelaAbertura, porém você pode salvar como costuma.

Agora vamos dar uma mudada no visual deste ****, se não vai ficar meio estranho né, uma tela em branco sem nada quando seu sistema iniciar.

Adicionei 1 imagem e 1 *****, ficou simples mais é só pra ter uma idéia de como vai ficar, vejam:

 

 

Para finalizar adicione um componente Timer no formulário FTelaAbertura e mude suas seguintes propriedades:

 

Name: Tempo

Interval: 5000

 

O Timer será o responsável por mater a tela de abertura aberta por 5 segundos,

eu determinei esse tempo porém se quiserem mudar vocês podem determinar isso na propriedade Interval do Timer.

 

Antes de começar a codificar vamos entender algumas coisinhas:

Formulários de abertura devem permanecer por algum tempo expostos, para que o usuário identifique o nosso software mas não apenas para isso, mas também enquanto rotinas ou até mesmo enquanto outros formulários estiverem sendo carregados por trás da aplicação, invisíveis ao usuário.

O que concluímos com isso ? Que o formulário de abertura não deve ser criado junto com os demais formulários e sim apenas na inicialização do sistema, pois sua utilidade é temporária. Sendo assim, deve ser destruído posteriormente.

 

Clique em Projects - Options, abrirá a pagina eguinte:

Como podem perceber retirei do Auto-create Forms o formulário de abertura, passado para Available Forms.

Faça isso e nosso formulário não será criado na hora da execução da aplicação, pois como já dito, carregaremos ele apenas na inicialização do sistema,

não tendo necessidade de mantê-lo na memória.

 

Vá em Projetc - View Source, aparecerá o código abaixo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Deixe-o assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Entendendo

 

Nas primeiras linhas, nosso formulário é criado e exibido. Depois disso a aplicação é iniciada para que os próximos forms sejam criados.

Antes da criação e exibição dos forms, usei o update para exibir os elementos do **** de abertura.

O loop repeat - until, mantém o formulário visível por um tempo determinado até que a condição do evento OnCloseQuerry seja verdadeira. Mais tarde mostrarei os detalhes.

Logo aós ter passado o tempo de exibição, o **** é fechado, destruído e seu conteúdo liberado na memória..

A aplicação é então exibida.

 

No formulário FTelaAbertura, clique sobre o componente Timer e em seu evento Ontimer adicione a seguinte linha de comando:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

O componente Timer deve vir com sua propriedade Enabled como True, se não o valor de sua propriedade Interval não servirá para nada. O fato da propriedade enabled estar true garante que o tempo determinado seja utilizado na inicialização, sendo inibido, pelo código anterior quando o valor chegar ao seu limite máximo (Nesse caso 5 segundos).

 

Seelecione o **** FTelaAbertura, e em seu evento OnCloseQuery adicione o código:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Esse código verifica se o componente Timer está enabled ou não, caso esteja, passa o valor True para a variável Canclose do **** FTelaAbertura, habilitando assim para que o formulário seja fechado. Essa condição é verificada pelo loop repeat - until.

 

Teste seu projeto :festa:

Criando Splash-Screen Delphi 7

 

Crie seu projeto e faça a Tela de abertura como desejar, como feito no exemplo acima.

Como no tutorial acima vá em Project - Options e coloque o **** FTelaAbertura como Available Forms.

Depois vá em Project - View Source aparecerá o código abaixo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Deixe-o assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Teste seu projeto :festa:

 

[.:Luis:.™ 0]

Muito bom , Vlw ae vou usar.