ProgressBar...

[mateus13m]

Olá. Eu estava verificando alguns tópicos sobre Delphi aqui na internet, quando achei um muito interessante que falava/ensinava a usar uma progressbar. Só que ele ensinava de acordo com o seguinte código (que deveria ser add no evento OnActivate do Form):

ProgressBar1.Position:=10;
Sleep(500);
ProgressBar1.Position:=20;
Sleep(500);
ProgressBar1.Position:=30;
Sleep(500);
ProgressBar1.Position:=40;
Sleep(500);
ProgressBar1.Position:=50;
Sleep(500);
ProgressBar1.Position:=60;
Sleep(500);
ProgressBar1.Position:=75;
Sleep(500);
ProgressBar1.Position:=90;
Sleep(500);
ProgressBar1.Position:=100;
Sleep(200);

Showmessage('Terminou!');

end;

Só que eu fiquei um pouco curioso. Este código serve para apareçer a progressbar quando o form estiver iniciando. Mas, e se eu quiser add quando estiver, por exemplo, copiando um arquivo a partir de um button? Tem como? Obrigado!

[mateus13m]

Aos moderadores, desculpem o nível de conhecimento sobre delphi que eu tenho, mas fazendo alguns testes e tentando, eu consegui a solução. É muito simples! Basta você adicionar o código postado acima no evento OnClik do Button. Desculpem de novo e pode dar resolvido