Progress Bar

Delphi

03/03/2004

Olá pessoal.

Bem minha dúvida é como acionar uma progress bar, enquanto um query está em execução.Eu precisaria ler quantos registros estão sendo lidos na Query e como fazer para acionar a progress bar, que me mostraria o progresso da query.

E aí pessoal, será que alguém pode me ajudar?


Vagner Monteiro

Vagner Monteiro

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

03/03/2004

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
   IBQuery2.Open;
   ProgressBar1.Position:=0;
   ProgressBar1.Max:=IBQuery2.RecordCount;

   while not IBQuery2.Eof do
      begin

//      ... seu código

      ProgressBar1.Position:=ProgressBar1.Position + 1;
      IBQuery2.Next;
      end;
end;



GOSTEI 0
POSTAR