Fórum Progress Bar #217869
03/03/2004
0
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?
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
Curtir tópico
+ 0
Responder
Posts
03/03/2004
Fabio.hc
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)