Progress bar w delphi.

[andy]

Czesc!
Otoz mam taki problem. Chcialem dodac do programiku pasek postepu. Ale tak dla bicu, znaczy ze nie bedzie wskazywal postepu jakiejs operacji tylko przez 10 sekund ma sie poruszac od 0% do 100%.

Czy ktos wie moze jak to napisac??

Z gory dzieki za pomoc

[qfir]

mozesz wstawic ruchomego gifa

[Posłany]

Dajesz na formę progressbar'a i timer'a Dajesz w Progressbarze - min 0m, max 100, Position 0. Ustawiasz Interval Timera na 100 i piszesz w OnTimer:

if Progressbar1.Position=100 then
Timer1.Enabled:=false;
Progressbar1.Position:=Progressbar1.Position+1;

[Ziele]

Chciałem napisac ale Posłany mnie uprzedził


ps. jaki program piszesz?

edit:
tu masz bardziej ambitny progress bar

[andy]

Dzieki wszystkim za pomoc. Reputki poleca
Ale jest maly problem. Gdy mi wczytuje drugi raz pasek to jest odrazu na 100. Caly zapelniony. Dopiero jak uruchomie program pownonie to dziala.

[Ziele]

Nie bardzo rozumiem...który pasek? Ten rysowany? opisz dokładniej

[andy]

Chodzi o psaek postepu. Od razu ma wartosc 100% dziwne Dopiero jak uruchomie ponownie program to leci normalnie.

[Ziele]

Dziwne... u mnie chodzi wszystko ok. Ale nie napisałes w dalszym ciągu który... czy ten normalny czy rysowany z obrazków.

[andy]

Normalny standardowy z Delphi.
Otoz w programie zaznacza sie jedna z 4 charakterystyk i naciska przycisk oblicz wtedy wyswietla sie okienko i na nim umiescilem pasek postepu + timer. Po 10s okienko znika i pokazuje sie charakterystyka I za pierwszym razem jest wszystko ok. Ale jak drugi raz chce wykreslic to pasek jest caly zapelniony. Od razu ma wartosc max. Moze po kazdym urzyciu trzeba cus czyscic??

[*Vojtas*]

Możesz spróbować wywoływać to okno, na którym masz ProgressBar jako modalne. I powinno być ok.

Np. w taki sposób:

procedure TForm1.Button1Click(Sender: TObject);
  begin
 with TForm2.Create(self) do
 try
  ShowModal;
 finally
  Free;
 end;
end;

pozdr.

[Ziele]

Napisany przez @ndy

Normalny standardowy z Delphi.
Otoz w programie zaznacza sie jedna z 4 charakterystyk i naciska przycisk oblicz wtedy wyswietla sie okienko i na nim umiescilem pasek postepu + timer. Po 10s okienko znika i pokazuje sie charakterystyka I za pierwszym razem jest wszystko ok. Ale jak drugi raz chce wykreslic to pasek jest caly zapelniony. Od razu ma wartosc max. Moze po kazdym urzyciu trzeba cus czyscic??

Oczywiście że trzeba.
progressbar1.position:=0;

[Posłany]

Żeby zacząć odliczanie od zera dajesz:

ProgressBar1.position:=0;
Timer1.Enabled:=True;

[47]

Tylko musisz dodac w foramatce na której jest progessbar w zdarzeniu foramatki OnActivate
to:

progressbar1.Position:=0;

Pozdrawiam

[andy]

progressbar1.Position:=0;

THX pomoglo