Exibir progressbar

Question

Como fazer para exibir um progressbar enquanto o sistema est� sendo aberto e quando uma tabela est� sendo aberta ??CBier...

Ltres · Answer

Vc pode fazer o seguinte.. Crie um form com um progress bar e tire ele do auto-create (la em Project>>Options>>Forms, joga pra direita). No arquivo do projeto da aplica��o (dpr) fa�a o seguinte

begin
  Application.Initialize;

  F_Load := TF_Load.Create(Application);          //Cria o form de carregamento, o q tem o ProgressBar
  F_Load.Show;
  ShowWindow(Application.Handle, SW_HIDE);
  F_Load.ProgressBar1.Position := 0;
  F_Load.Update;
  try
    Application.CreateForm(TForm1, Form1);  // Cria o form 1
    F_Load.ProgressBar1.Position := 25;        // atualiza barra de progresso
    F_Load.Update;

    Application.CreateForm(TForm2, Form2);  // Cria o form 2
    F_Load.ProgressBar1.Position := 50;        // atualiza barra de progresso
    F_Load.Update;

    //assim por diante..  pode ate colocar um datamodule.. 
  finally
    Form1.Show;
    ShowWindow(Application.Handle, SW_SHOWNORMAL);
    F_Load.Close; 
    F_Load.Free;
  end;

lembrando q tudo q tiver entre o try e o finally vai ser criado na inicializacao.. e lembre-se de atualizar a progresbar..

qualquer coisa manda ai...

Ltres · Answer

a me esqueci de colocar o final hehe[code:1:c703a01b8a]  Application.Run;end.[/code:1:c703a01b8a]...

F�rum Exibir progressbar #225530