(Tutorial) Barra De Progresso Para o Carregamento Do Seu Programa

[josue1602 0]

Daew Galerinha Eu Denovo xD

Hj Vo Explica Como Por Uma Barra De Progresso Para o Carregamento Do Seu Programa. Vamos Lá.

 

Primeiro Vo Postar Uma Foto Aki Do Meu Programa Pronto Pra Vcs Terem Uma Ideia De Como Deve Ficar.

 

Primeiro De Tudo Com Seu Delphi Aberto E Com o Projeto Criado Crie Outra Form File>>New>>Form

Agora Vc Vai Ter 2 Form a Form1 e a Form2

 

Na Form 1 Adicione Um ProgressBar Na Aba Win32 e Adicione Tmb o XpManifest Pra Fica Bunitinho xD e Por Ultimo Adicione Um Timer Na Aba System

 

Agora Vamos Para os Code

 

De Dois Clicks Em Cima Do Timer e Adicione Essas Linhas De Code:

var

x:Integer;

begin

for x:=0 to 100 do

begin

ProgressBar1.Position:=ProgressBar1.Position+1;

Sleep(90);

end;

ProgressBar1.Position:=0;

Form2.show;

form1.Hide;

timer1.Enabled := false;

end;

 

OBS: Apague O Begin Que Tah Escrito Quando Vc Da Dois Clicks Do Timer.

 

Deu A Form1 Tah Pronta Agora Vamos Para A Form 2:

 

Vá Em Propriedades Localizado O Object Inspector Depois Click Em Events e Por Ultimo De Dois Clicks No OnClose Não Exatamente Em Cima Do Nome Mas Sim Ao Lado Onde Naum Vai Ter Nada Escrito.

e Adicione Esse Code:

application.Terminate;

 

Uma Imagem Pra Quem Naum Achar:

 

e Agora No Form 2 Fassa Seu Programa ;D

 

é Isso Galerinha xD

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Creditos:

Júlio César Por Parte Dos Code

e A Mim Tmb xD

 

[Zaphey 2]

Na minha opinião é possível dar uma melhorada no code .

Eu não sei dos outros, mas eu odeio 'sleep', ele trava o programa e até faz ele parar de funcionar dizendo 'O PROGRAMA NÃO ESTÁ RESPONDENDO' :S

Eu prefiro SplashScreen, mas mesmo assim obrigado por compartilhar.

 

Abraços!

[josue1602 0]

É Realmento o Sleep Trava o Programa

Tambem Da Pra Fazer Isso De Outras Maneiras

OBG Pela Resposta.

[Mestre_Vator 0]

Para não travar,crie uma thread paralela.

[evane25 0]

muito bom esse topico vlw man ajudou muito

[Ex7reMe 2]

Infelizmente o Programa travou Eu não consigo Fazer direito aqui travou , '-'

[Kyoro 82]

Tópico Trancado

 

Motivo:

Conteúdo Existente

 

Como Evitar Que Se Repita:

Use a Ferramente Pesquisar Antes de Fazer seu Tópico.