Código
Para isso você deve criar uma nova Form e alterar suas bordas
e colocar para abrir no centro, depois você deve especificar para que ela seja criada manualmente
Ex: Project/Options e colocar ela no lado Available form.
E depois utilize o seguinte código
begin
application.Initialize;
application.Title:='O nome do Formulario';
//Este código que deve ser colocado
FormSplash:=TFormSplash.Create(Application);
FormSplash.Show;
FormSplash.Refresh;
//Este código que deve ser colocado
depois disso vc deve colocar o seguinte código no OnShow do Formulário principal.
procedure TForm1.OnShow (Sender: TObject);
begin
//Este código que deve ser colocado
FormSplash.free;
//Este código que deve ser colocado
end;
Obs:A formSplash é o nome do form q eu escolhi para ser a Tela de inicialização, você deve colocar o nome do seu Form q deseja q seja a Tela de inicialização.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009