ProgressBar

[Killer]

Galera eu tou fazendo um programa muito simples mesmo

A ajuda é o seguinte:

Quando clico no botão 'limpar' vai começar a limpar uns arquivos eu quero que a progressbar carregue conforme vai limpando !

Como se fosse um download..'

Quando a limpeza terminar a progreesbar já vai ter terminado de carregar !!

[Jhonas]

exemplo:

procedure TFAcoes.BitBtn2Click(Sender: TObject);
var i : integer;
begin
   if MessageDlg('Deseja Apagar Todos os Registros ?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
         Gauge1.Visible := true;
         Gauge1.MaxValue := CDS_Cadastro.recordcount -1;
         CDS_Cadastro.First;
         for i := 0 to CDS_Cadastro.recordcount -1  do
            begin
               CDS_Cadastro.delete;
               Gauge1.Progress := i + 1;
            end;
         CDS_Cadastro.ApplyUpdates(-1);
         Gauge1.Visible := false;
      end;
end;

OBS: voce pode trocar o Gauge pelo ProgressBar

abraço