[Tutorial]Fazendo uma ProgressBar [DELPHI]

[~ Heatlex. 10]

Bom, precisaremos de:

 

Uma ProgressBar

Um button ou CheckBox

 

 

 

 

Dê dois cliques no Button, e edicione no seu evento OnClick:

 

Apague:

 

begin

end;

 

 

E coloque

 

var I: integer;

begin

 

I:=0;

for I := ProgressBar1.Min to ProgressBar1.Max do

begin

ProgressBar1.Position := I;

Sleep(10);

 

if ProgressBar1.Position = 100 then

begin

ProgressBar1.Position:=0;

ShowMessage('ProgressBar concluída!');

end;

end;

end;

 

Neste caso, quando a barra chegar em 100% (no final) Aparecerá uma mensagem de sucesso.

 

creditos : Luigi

[~ Ronaldinho 0]

Muito bom mano, ajudo aqui e muito...

Obrigado por compartilhar.

 

Abraçss

[FeehAugustto 0]

Poxa, muito bom mesmo, gostei muito, vlw

[Kelvin10lol 0]

Ficou bem simples...

Para quem quiser saber mais, procure sobre Thread (irei postar vídeo aula sobre isso depois)

 

Mas esta OK o funcionamento

[matopormata 654]

Vlw mesmo eu tava precisando disso para fazer uma setup desenvolvida por mim, parabéns pela tutorial

['Leozin 30]

Conteúdo já existente, antes de postar um tópico, certifique-se que ele ainda não foi postado, para isto, use a ferramenta Pesquisar.

 

Fechado.