Buscar por:

Form tipo splash (não usa o timer)

Código

//Essa é a primeira dica que coloco no site e espero que ajude.

{1-inicie um novo projeto,e no form1(formprincipal) faça o layout que peferir

2-adicione um novo form(que será o de abertura).Nele coloquei um label com caption = Abertura do Aplicativo

(só como exemplo)

3-na guia project é que vem o "X" da questão.

é preciso adicionar a biblioteca Sysutils na sessão Uses,pois o código usa a função "Time".

após {$R *.res}, cole o código abaixo sobre o código que o delphi gerou.

}

Var

  Tempo_Exibicao : TDateTime; // Tempo mínimo de exibição

                              // do form de abertura

begin

// Criar e exibir o formulário de abertura

  FormSplash := TFormSplash.Create(nil);

  FormSplash.Show;

  FormSplash.Update;

// Ajuste do Tempo

  Tempo_Exibicao := Time + StrToTime('00:00:05'); // min. e seg.

  Application.Initialize;

  Application.CreateForm(TFormPrincipal, FormPrincipal);

  // Pausa

  Repeat Until Time > Tempo_Exibicao;

  FormSplash.Free;

  Application.Run;

end.

{

Pronto!é mais uma forma de se fazer um formulário de abertura e não precisa do componente Timer.Abaixo está todo o código da guia project,se precisar.

Abraços 

}

program ProjectSplash;

uses

  Forms,

  Sysutils,

  UnitPrincipal in 'UnitPrincipal.pas' {FormPrincipal},

  UnitSplash in 'UnitSplash.pas' {FormSplash};

{$R *.res}

Var

  Tempo_Exibicao : TDateTime; // Tempo mínimo de exibição

                              // do form de abertura

begin

// Criar e exibir o formulário de abertura

  FormSplash := TFormSplash.Create(nil);

  FormSplash.Show;

  FormSplash.Update;

// Ajuste do Tempo

  Tempo_Exibicao := Time + StrToTime('00:00:05'); // min. e seg.

  Application.Initialize;

  Application.CreateForm(TFormPrincipal, FormPrincipal);

  // Pausa

  Repeat Until Time > Tempo_Exibicao;

  FOrmSplash.Free;

  Application.Run;

end.