Código
- Primeiro Crie um Form e Mude as Seguintes Propriedades:
Heigth - 250 (altura)
Width - 400 (largura)
BorderStyle - Bssingle (para não arrastar a borda do form)
BorderIcons - Passar todos para false
Position - DesktopCenter (Para o form ficar no centro)
Caption - Programa Sendo Carregado... (é o que vai aparecer na barra de titulos)
WindowsState - Normal (para ficar do tamanho que ele foi criado)
Name - nomedoform (Nome do formulário)
- Depois clique no Menu ProjectView Source, na janela que vai abrir vá até USES e embaixo dela escreva: SysUtils, (com a vírgula depois da palavra).
- Depois procure um Begin logo abaixo de USES, abaixo desse Begin deve ter a seguinte linha de comando: Application.CreateForm (Tnomedoform, nomedoform) e abaixo desse comando faça:
Nomedoform.Show; //chama o formulário
Nomedoform.Refresh; //atualiza
Sleep (4000); //tempo de exibição da tela
Nomedoform.Free; ou Nomedoform.Release // libera da memória
Nomedoform := Nil; //inutiliza a ação do ponteiro do mouse
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009