Carregar Progressbar Ao Iniciar A Aplicação

[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á...

[Eder Moraes]

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....