Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

[Tutorial]Fazendo uma ProgressBar [DELPHI]


~ Heatlex.
 Compartilhar

Posts Recomendados

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

Link para o comentário
Compartilhar em outros sites

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

Meu coração ainda é humano, mas o meu corpo já pertence a um Ghoul.

WCnt3HR.pngABHNbkI.png

Link para o comentário
Compartilhar em outros sites

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.

Q1pBN.png

 

Membro | Membro de Honra | Game Zone | Moderador | Coordenador | Elite Member | Banido | Game Zone | Elite Member | Moderador | Titanium Member

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.