Progress Bar com Time

Delphi

03/04/2004

Pessoal boa tarde preciso criar uma Barra de progresso só que preciso que esta barra seja incrementada com segundos ou seja tenho uma atividade para ser realizada em 15 segundos na medida em que for passando os segundos a barra vai incrementando


Ariovaldo

Ariovaldo

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

03/04/2004

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
var cont, total:integer;
begin
   IBQuery1.Last;
   ProgressBar1.Position:=0;
   ProgressBar1.Max:=IBQuery1.RecordCount;
   total:=ProgressBar1.Max div 15;
   cont:=0;
   IBQuery1.First;
   while not IBQuery1.Eof do
      begin
      Inc(cont);
      if cont = total then
         begin
         cont:=0;
         ProgressBar1.Position:=ProgressBar1.Position+total;
         end;

     ... aqui entra seu código ...

      IBQuery1.Next;
      end;
end;


Neste exemplo, já que o tempo é 15 sec, eu dividi a quantidade de registro por 15, acho o total de registro por segundo.
Fiz um contador de registro incrementado até o total e mostra o progresso.


GOSTEI 0
POSTAR