Tela de Apresenta��o

Question

Oi pessoal, tudo bem? Espero que sim.Olha s�, eu to pensando em fazer uma telinha de apresenta��o pro meu programa, mas a d�vida � a seguinte. Sempre que eu come�o uma nova aplica��o, o primeiro form ...

Alanhfs · Answer

Cara, em op��es de projetos voc� escolhe quais os forms dever�o ser criados na inicializa��o do programa, a� � s� voc� colocar o seu form de apresenta��o para ser criado e de dentro dele voc� chama o form principal da sua aplica��o e esconde o de apresenta��o.

Abra�o

Aersoftware · Answer

Aaaah.. entendi.. hehe.. na verdade eu ja tinha feito isso antes.. quer dizer, eu deixo s� o form principal pra criar na inicializa��o, e os outros eu chamo de acordo com q s�o requisitados. Agora que vc falou me liguei q da pra fazer assim tb.. hehe.. valeu, abra�os..

Allan Elias Ramos :wink:

Massuda · Answer

O primeiro form criado automaticamente (via Application.CreateForm) � o form principal do programa e � tratado de modo especial pela VCL. N�o fa�a uma tela de apresenta��o (splash) ou login ser o form principal do seu programa para n�o ter surpresas desagrad�veis.

Fa�a algo assim...

type
  TFormPrincipal = class...
  private
    Splash: TSeuFormDeApresentacao;
...
procedure TFormPrincipal.FormCreate(... 
begin
  Splash := TSeuFormDeApresentacao.Create(Self); 
  Splash.Show; 
  ...
end;

procedure TFormPrincipal.FormShow(... 
begin
  if Splash <> nil then FreeAndNil(Splash);
  ...
end;

Aersoftware · Answer

Hmmm.. entendi Massuda, pensei que fosse indiferente essa cria�ao. Ainda bem que n�o fiz ainda. Vou fazer essa tela s� depois.

Outra coisa. Eu trabalho com um programa, (provavelmente feito em VB), q tem uma tela de apresenta��o onde aparece as tabelas sendo carregadas. Achei interessante isso. Como seria pra fazer mais ou menos assim na tela.

Conectando ao Banco de Dados... Conectado!
Carregando Tabelas... (a� iria aparecendo todos os nomes das tabelas at� o final aparecer �Conclu�do!�, e depois
Iniciando o Programa....

A� depois de alguns segundos ele iniciaria.. tem como fazer isso?

Allan Elias Ramos :?:

Massuda · Answer

[quote:8cec64f63d=�AerSoftware�]...tem uma tela de apresenta��o onde aparece as tabelas sendo carregadas.... A� depois de alguns segundos ele iniciaria.. tem como fazer isso?[/quote:8cec64f63d]Pegando o exemplo que postei, vamos imaginar que tem um label chamado lblMensagem no form TSeuFormDeApresentacao; da� voc� pode fazer algo assim...[code:1:8cec64f63d]type   TFormPrincipal = class...   private     Splash: TSeuFormDeApresentacao; ... procedure TFormPrincipal.FormCreate(... begin   Splash := TSeuFormDeApresentacao.Create(Self);   Splash.Show;   ...  Splash.lblMensagem := �Iniciando...�;   Splash.Update;   ...  Splash.lblMensagem := �Abrindo tabela 1...�;   Splash.Update;   // abre a tabela 1  ...  Splash.lblMensagem := �Abrindo tabela 2...�;   Splash.Update;   // abre a tabela 2  ...  Splash.lblMensagem := �Pronto...�;   Splash.Update; end; procedure TFormPrincipal.FormShow(... begin   if Splash <> nil then FreeAndNil(Splash);   ... end;[/code:1:8cec64f63d]...

Aersoftware · Answer

Valeu Massuda, vou dar uma implementada no c�digo. Abra�os.Allan Elias Ramos  :wink:...

F�rum Tela de Apresenta��o #292139