Um programa Windows cuidadosamente escrito exibe precauções de inicialização, chamado tela Splash. Usando um pouco de conteúdo, você pode adicionar muita cor à exibição do programa.
Como o projeto em si cria a janela principal do programa e a tela Startup Sputtering deve aparecer antes que a janela principal seja criada, o arquivo do projeto deve criar sua própria tela de inicialização. Isso significa que o usuário deve modificar o código -fonte para criar o arquivo do projeto, que geralmente não é necessário na programação Delphi. O processo a seguir apresenta o processo de configuração de uma tela de pulverização.
1. Inicie um novo projeto. Nomeie o formulário Mainform e defina sua propriedade de legenda como SplashIndemo. Salve este projeto em um diretório, como C: ProjectsSplashin. Nomeie a unidade Mainform Main e nomeie o arquivo do projeto Splashin.
2. Insira um componente de botão na forma principal. Altere a propriedade Nome do botão para sair do botão e sua propriedade de legenda para sair. Crie um processador para o evento OnClick do ExitButton, inserindo uma declaração estreita entre as palavras -chave iniciantes e finais do processo.
3. Selecione o comando do arquivo | novo formulário ou clique no botão de velocidade do novo formulário. Adicione um novo formulário.
4. Altere a propriedade Nome deste formulário para divulgar e excluir sua propriedade de legenda. Além disso, altere sua propriedade BordersTyle para BSNONE e defina os três subvalores em Bordericons como FALSE.
5. Salve este projeto. Quando Delphi solicitar ao leitor a fornecer o nome do arquivo da unidade, verifique se o diretório atual é o diretório correto. Digite Splash para o nome do arquivo de unidade do SplashForm.
6. Defina a propriedade ativada do SplashForm como false. Este é um dos casos raros em que os usuários não desejam fornecer comandos de teclado e mouse ao Windows. Neste exemplo, queremos que o programa tenha controle total sobre a exibição do SplashForm.
7. Como a janela não possui esboço, insira um objeto de componente chanfrado da classe de componentes adicionais. Isso ajuda a definir as bordas da janela. Defina a propriedade alinhada do Bevel1 como Alclient. Ao mesmo tempo, altere a propriedade Shape do objeto para BSFrame e altere sua propriedade de estilo para BSRAIDED. Esses valores são determinados pelo usuário.
8. Insira os componentes que você deseja usar no SplashForm, não insira nenhum botão ou outros controles interativos aqui. O próprio aplicativo exibe e remove a caixa de diálogo Start Sputtering.
9. Selecione o menu do projeto. Destaque o menu pop-up do projeto Splash. Selecione o comando Options. Na caixa de diálogo Opções de projeto gerado, selecione o rótulo da página de formulários. Observe que Mainform e SplashForm estão na lista de formulários criados automaticamente. Destaque cada formulário e clique no botão direito do mouse para movê -lo para o formulário disponível. Todos os formulários Delphi são criados automaticamente na memória no tempo de execução, que consome recursos de memória e sistema. Nesse caso, o programa cria o formulário em tempo de execução, e o leitor deve excluir o formulário da lista criada automaticamente. Feche a janela ProjectOptions.
10. Em seguida, modifique o código -fonte do projeto para exibir a caixa de diálogo Sputtering antes de exibir a janela principal. Aqui você precisa inserir instruções no arquivo do projeto para corresponder ao arquivo de projeto Splash.dpr. O código -fonte do projeto é o seguinte:
Projeto Projeto3;
usos
Formas,
main em 'main.pas' {mainform},
respingo em 'splash.pas' {splashform};
{$ R *.res}
Começar
Splashform: = tsplashform.create (aplicativo);
Splashform.show;
Splashform.update;
Application.CreatEform (tmainform, MainForm);
Splashform.close;
Application.run;
fim.
11. Se o programa for compilado e executado neste momento, ele será exibido e removerá a caixa de diálogo Iniciar a pulverização muito rapidamente, para que o usuário não tenha a chance de vê -lo. Para forçar a caixa de diálogo para permanecer visível por alguns segundos, selecione a forma principal do programa. Crie um processador para o comando onCreate do formulário. Adicione uma variável inteira longa chamada StopTime antes da palavra -chave. Insira duas declarações entre o início e o fim: uma é uma chamada para a função Windows GetTickCount. Definir o StopTime para o número de segundos em que o Windows está em execução; A lista de programas é a seguinte:
unidade principal;
interface
usos
Windows, mensagens, sysutils, aulas, gráficos, controles, formulários, diálogos,
Stdctrls;
tipo
Tmainform = classe (tform)
Exitbutton: Tbutton;
procedimento exitbuttonClick (remetente: tabject);
Procedimento FormCreate (remetente: Tobject);
Privado
{Declarações privadas}
público
{Declarações públicas}
fim;
var
Mainform: tmainform;
Implementação
{$ R *.dfm}
procedimento tmainform.exitbuttonClick (remetente: tabjas);
Começar
fechar;
fim;
procedimento tmainform.formCreate (remetente: tobject);
var
StopTime: Longint;
Começar
StopTime: = getTickCount Div 1000;
enquanto ((getTickCount div 1000) ＜ (StopTime+2))
Sono (1);
fim;
fim.
12. Pressione F9 para compilar e executar o programa.