[DUVIDA COM DELPHI 7 ] Como Colocar 2 Progress Bar ?

[Progamax1 0]

Gente estou com uma duvida,

Eu estou fazendo um progama e nele esta contido uma tela de splash screen,

E Nela estou inserindo 2 componentes.

 

2 PROGRESS BAR

2 TIMES

 

Eu quero que cada progress bar encha 1 de cada

ou Seja a PROGRESS BAR 1. ENCHA E LOGO APOS ENCHA A PROGRESSBAR 2

E ASSIM ABRA O PROGAMA.

 

Eu so consigo fazer encher 1 progress bar a outra nao enche

estou usando

procedure TForm1.Timer1Timer(Sender: TObject);

begin

bar.Position:=10;

sleep (100);

bar.Position:=20;

sleep (100);

bar.Position:=30;

sleep (100);

bar.Position:=40;

sleep (100);

bar.Position:=50;

sleep (100);

bar.Position:=60;

sleep (100);

bar.Position:=70;

sleep (100);

bar.Position:=80;

sleep (100);

bar.Position:=90;

sleep (100);

bar.Position:=91;

sleep (100);

bar.Position:=92;

sleep (100);

bar.Position:=93;

sleep (100);

bar.Position:=94;

sleep (100);

bar.Position:=95;

sleep (100);

bar.Position:=96;

sleep (100);

bar.Position:=97;

sleep (100);

bar.Position:=98;

sleep (100);

bar.Position:=99;

sleep (100);

bar.Position:=100;

sleep (100);

form2.show;

form1.enabled:=false;

form1.Visible:=false;

timer1.Enabled:=false;

end;

 

Espero que alguem me ajude =/

[~OwneR~ 8]

Pra que isso tudo mano =O

Altere MaxTime para o tempo que o ProgressBar irá levar para encher.

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

• Entre
• ou
• Cadastre-se

 

Dois código um pouco mais avançado, ótimo se você quiser fazer isso com vários ^^:

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

• Entre
• ou
• Cadastre-se

 

Recomendo esse para preencher todos os ProgressBars

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

• Entre
• ou
• Cadastre-se

[Kintaro.ownZ 0]

Mensagem Editada ~~ .

[Progamax1 0]

Eu estou inserindo o Codigo pq eu quero que as 2 barras enchao ou seja

eu to usando a 1 progress bar como( bar1 ) e a outra progress bar como ( bar2 )

E Esta dando erro =/

Nao estou conseguinod modificar teria como vc me mandar o codigo de encher as 2 barras?

Estou usando * procedure TForm1.Timer1Timer(Sender: TObject); *

Me mande o codigo ja modificado pois nao estou conseguindo =/

[Zaphey 2]

Ele já te explicou o que tem que fazer, aqui não é fábrica para ter tudo pronto.

Estude.

Fechado!