ProgressBar

Delphi

23/10/2003

Bom pessoal sou novo por aqui e estou aprendendo um pouco sobre o Delphi e precisava de umas dicas de como fazer o progressor ´progressbar´ carregar enquanto eu chamo a aplicação.
É que ela e baseada em postgreSQL.

Aguardo resposta.
Valeu!!!
[/b]


Santiago

Santiago

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

23/10/2003

Unit principal do aplicativo:

begin
  F_Splash:=TF_Splash.Create(Application);
  F_Splash.Show;
  F_Splash.Label1.Caption:=´Preparando o Sistema...´;
  F_Splash.Refresh;
  F_Splash.ProgressBar1.Position:=5;
  Application.Initialize;
  Application.Title := ´Controle´;
  Application.CreateForm(TF_Senha, F_Senha);
  Application.CreateForm(TF_RelNotaFis, F_RelNotaFis);
  F_Splash.ProgressBar1.Position:=10;

  F_Splash.ProgressBar1.Position:=15;

  F_Splash.ProgressBar1.Position:=20;
  Application.CreateForm(TF_DPessoais, F_DPessoais);
  F_Splash.ProgressBar1.Position:=25;

  F_Splash.ProgressBar1.Position:=30;

  F_Splash.ProgressBar1.Position:=35;

  F_Splash.ProgressBar1.Position:=40;

  F_Splash.ProgressBar1.Position:=45;

  F_Splash.ProgressBar1.Position:=50;

  F_Splash.ProgressBar1.Position:=55;

  F_Splash.ProgressBar1.Position:=60;

  F_Splash.ProgressBar1.Position:=65;

  F_Splash.ProgressBar1.Position:=70;
  F_Splash.Label1.Caption:=´Inicializando o Sistema...´;
  F_Splash.Refresh;

  F_Splash.ProgressBar1.Position:=75;
  Application.CreateForm(TDM_Geral, DM_Geral);
  F_Splash.Label1.Caption:=´Criando o formulário Principal...´;
  F_Splash.Refresh;
  F_Splash.ProgressBar1.Position:=80;
  DM_Geral.IBDataBase1.Connected:=True;

  F_Splash.ProgressBar1.Position:=85;

  F_Splash.Label1.Caption:=´Criando Subformulários...´;
  F_Splash.Refresh;
  F_Splash.ProgressBar1.Position:=90;

  
  F_Splash.Label1.Caption:=´Executando o Aplicativo...´;
  F_Splash.Refresh;
  F_Splash.ProgressBar1.Position:=95;
  Application.CreateForm(TF_Senha, F_Senha);
  F_Splash.ProgressBar1.Position:=100;
  F_Splash.Free;
  Application.Run;
end.



GOSTEI 0
POSTAR