Exibir progressbar

Delphi

12/04/2004

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

CBier


Cbier

Cbier

Curtidas 0

Respostas

Ltres

Ltres

12/04/2004

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


GOSTEI 0
Ltres

Ltres

12/04/2004

a me esqueci de colocar o final hehe
  Application.Run;
end.



GOSTEI 0
POSTAR