Buscar por:

Usando o componente gauge na execução da query

Código

Procedure TForm1.Button1Click(Sender: TObject);

begin

Query1.Open;{ abre a table query que seja}

Gauge1.MaxValue:=query1.RecordCount; {diz que o valor max do gauge é o valor de regitrs a serem

processados pela na tabela}

Query1.First; {posiciona no inicio da tabela}

if not Query1.Eof then {enquanto a tabela não estiver, vai executar

o codigo abaixo }

repeat

{ seus comandos para a tabela }

Gauge1.Progress:=Gauge1.Progress + 1;

if Gauge1.Progress = Gauge1.MaxValue then

begin

showmessage('Processo Terminado!');

end;

Query1.Next { move para o próximo registro}

until Query1.Eof; {finaliza o programa ao final da tabela}

end;

end. 

//espero que gostem