Imagem ante de abrir o sistema (Splash Screen)

[We Scripts 0]

Bom dia, a Todos

 

Criei um sistema de Gerenciador de Clientes no Delphi6, estou a procura de um tutorial Seria explicando passo a passo como que faz para a Imagem abrir antes do programa. EX: Quando você clica no Word antes de abrir o programa abre uma imagem.

 

alguem poder me ajudar ficarei muito grato!

B)

[Diego Garcia 0]

acho que você deve estar querendo saber como fazer um form de Splash. é simples... crie um formulário com a imagem que você quer, carregue ele antes das suas funções de abertura de sistema (carregar banco, parametros, etc), usando o formulario.show e depois formulario.update. Depois de executar suas funções de abertura de sistema basta fechar o splash e dar um free nele...

[We Scripts 0]

acho que você deve estar querendo saber como fazer um form de Splash. é simples... crie um formulário com a imagem que você quer, carregue ele antes das suas funções de abertura de sistema (carregar banco, parametros, etc), usando o formulario.show e depois formulario.update. Depois de executar suas funções de abertura de sistema basta fechar o splash e dar um free nele...

 

 

Bom dia, Diego

 

A sua dica foi boa mas preciso de um tutotial por um acaso você teria ou sabe de algum site que tenha esse tutorial??

Dede já obrigado pela sua atenção.

B)

[We Scripts 0]

acho que você deve estar querendo saber como fazer um form de Splash. é simples... crie um formulário com a imagem que você quer, carregue ele antes das suas funções de abertura de sistema (carregar banco, parametros, etc), usando o formulario.show e depois formulario.update. Depois de executar suas funções de abertura de sistema basta fechar o splash e dar um free nele...

 

 

Bom dia, Diego

 

A sua dica foi boa mas preciso de um tutorial por um acaso você teria ou sabe de algum site que tenha esse tutorial??

Dede já obrigado pela sua atenção.

B)

[Diego Garcia 0]

simples:

 

try
  if frmSplash = nil then
    frmSplash := tfrmSplash.create(application);
  frmSplash.show;
  frmSplash.update;

  ... //rotinas de abertura do sistema

finally
  frmSplash.close;
  freeAndNil(frmSplash);
end;

tente isso, se tiver alguma dificuldade só falar...

[We Scripts 0]

simples:

 

try
  if frmSplash = nil then
    frmSplash := tfrmSplash.create(application);
  frmSplash.show;
  frmSplash.update;

  ... //rotinas de abertura do sistema

finally
  frmSplash.close;
  freeAndNil(frmSplash);
end;

tente isso, se tiver alguma dificuldade só falar...

 

 

Diego tentei fazer mas ainda não consegui... quando clico F9 para testar ele abre e fecha o projeto mais a image não aparece...

Não teria que colocar um Timer que se localiza na aba System para programar o tempo que a imagem vai ficar aparecendo antes de abrir o sistema???

 

Desde já obrigado

[Diego Garcia 0]

cara, ele vai ficar apresentando esse form enquanto sua aplicação estiver executando as rotinas que estiverem dentro desse Try... se as rotinas rodarem como um tiro (rs..) você nem vai conseguir ver a tela, mas se você quer realmente ver a tela de splash, coloca um Sleep(tempo em milisegundos) dentro desse try depois de mostrar o formulario.

 

try
  sleep(30000) //o processamento para por 30 segundos
  ...