Ir para conteúdo
Fórum Script Brasil
  • 0

Carregar Progressbar Ao Iniciar A Aplicação


Guest Luiz Eduardo

Pergunta

Guest Luiz Eduardo

Olá galera, estou na fase final de meu sistema, e gostaria de saber como faço para ao usuário iniciar a aplicação (que é demorada, pois o banco fica em uma máquina servidora, de pouco poder de processamento), poder exibir o progresso de carregamento da aplicação, para que o usuário possa saber que a aplicação está sendo carregada, pois sem essa informação, eles ficam abrindo várias fezes o mesmo programa.

Agradeço desde já...

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Primeiramente crie um form splash. faça com que ele seja o form padrão

acrescente um timer

coloque um componente progressbar nele

link o form com o modulo que abre as tabelas:

declare em

implementations

uses nome_da_unit_do_modulo;

procedure .....

var i,x:integer;

begin

with modulo do begin

x:=ComponentCount -1;

progressbar.max := x;

for i:=0 to ComponentCount -1 do begin

if Components is TTable then begin //voce pode especificar outro componente ex: TIBQuery ou TQuery

TTable(Components).Open;

progressbar.position := i;

if i = x then begin Break; frm_splash.hide; frm_menu.show; {ou use o create isso fica a seu criterio} end else continue;

end;

end;

end;

enquanto ele faz a abertura das tabelas voce coloca algo para que os usuarios não tentem abri-lo novamente por ex: um label dizendo aguarde... carregando tabelas....

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...