progress bar..... Como utilizar num form?

Question

ser� que alguem pode me ajudar???gostaria de saber como utilizar uma progressbar em um form. s� para ver funcionando, nada muito complicado. tipo, qual gerenciador de evento usar, devo usar a fu��o Sl...

Oscar Candido · Answer

Amigo, n�o sei se � bem isso que vc quer, mas a� vai: :lol:
� um exemplo muito simples:
No envento OnTimer de um complente TTimer coloque o c�digo :

   ProgressBar1.Position := ProgressBar1.Position + 1;

caso n�o seja isto que vc procurtava poste de novo explicando melhor sua duvida
Espero ter ajudado
Um abra�o

Raimundo_farias · Answer

I ai cara! beleza... n�s demos um passo a frente.... =}

eu coloquei o Timer com intervalo = 1000.... coloquei o codigo da barra como vc falou:

procedure TFSplash.Timer1Timer(Sender: TObject);
begin
Barra.Position := Barra.Position + 1;
end;

com as seguintes propriedades:
Max = 100
Min = 0
Position = 0
Step = 10

so que n�o completa a barra toda... na verdade so aparecem tres barrinhas... =/ e o form se fecha!

*** esse form � um splash... o programa ta assim:

begin
  FSplash := TFSplash.Create(Application);
  FSplash.Show;
  FSplash.Refresh;
  Sleep(3000); // para segurar a splash

  Application.Initialize;
  Application.CreateForm(TFormCadastro, FormCadastro);
  Application.CreateForm(TFichaCadastro, FichaCadastro);
  Application.CreateForm(TFSplash, FSplash);
  FSplash.Free;
  Application.Run;
end.

e no codigo da splash s� tem aquele procedimento de cima....
ser� que vc pode me dar uma luz.??
Valeu caraa!!!! :shock:

Oscar Candido · Answer

cara, tenta diminuir o intervalo do seu timer , ou ent�o aumentar o incremento da posi��o da barra de progreesso, de 1 pra 10 por exemplo.
Acho que oq aconteceu ai foi que estava tudo muito devagar, rsrs, por isso n�o dava pra perceber bem a varia��o do ProgressBar,.
Espero qeu d� certo agora.
Um abra�o

Raimundo_farias · Answer

Valeu cara! ... eu aumentei o incremento e funcionou... pelo menos esta mais �apresentavel�... rsrsrs !Valeu, um abra�o!  :wink: At� mais!Raimundo Farias...