Post 3 - Trabalhando com Progress Bar no Delphi

No tutorial de hoje aprenderemos como fazer uma Progress Bar carregar automaticamente. Muitos programadores utilizam esse componente para indicar o carregamento do sistema, para mostrar o processamento de um arquivo entre outras situações. Vamos iniciar.
Como de costume, projetem uma tela similar a essa:

O form contém:
1 Label.
1 Progress Bar
1 Botão

O próximo passo será codificar o botão para acionar a nossa barra de progresso. Para fazer isso, dê um duplo clique no botão "Iniciar" e insira o seguinte código:

  while ProgressBar1.Position < 100 do //Enquanto a posição da barra for inferior a 100 (total)
    begin
      if ProgressBar1.Position < 50 then //Se o total da barra for menor que 50
        begin
          ProgressBar1.Position := ProgressBar1.Position + 1; //Incrementa mais 1 ao valor total da barra
          Sleep(50); //Tempo a ser percorrido
        end
      else begin //Caso o total da barra for superior a 50 a barra encherá mais rápido.
          ProgressBar1.Position := ProgressBar1.Position + 1;
          Sleep(5);
      end;
    end;

Clique aqui para baixar o fonte
Pronto! Feito isso seu projeto estará com a barra de progresso funcionando.

Qualquer dúvida contatem-me por e-mail: wesleymenezzes@gmail.com

Obrigado e não esqueçam de curtir e compartilhar nossos posts. Deus abençoe.