[DELPHI] TProgressbar

[zad]

Chcialbym zrobic progressbar'a opartego o zdarzenie form.create i iteracje od 1 do 10. napisalem cos takiego:

Code: Select all

Const n=10;
Var i:byte;
begin
progressbar1.max:=n;
progressbar1.position:=0;
for i:=1 to n do
progressbar1.position:=i;

Problem w tym ze mam problemy z umieszczeniem tego w kodzie, mam bledy w kompilcaji acess violation i initialize application Chcialbym zobaczyc jak wygladaja poszczegolne sekcje...implementacja, uses etc.

[Maxoff]

Dlaczego robisz to w FormCreate Okno nie zostanie wyświetlone dopóki procedura FormCreate nie zakończy swojego działania, a więc dopóki nie przejdzie przez fora. Dlatego mogłeś równie dobrze napisać:

Code: Select all

Const n=10; 
begin 
progressbar1.max:=n; 
progressbar1.position:=n;

efekt będzie ten sam (a nawet zadziała szybciej).

Dodatkowo:
1. Skoro max jest stale równe 10 to nie prościej wpisać tą wartośc do pola Max za pomocą ObjectInspektora
2. FormCreate jest wywoływane tylko raz, przy tworzeniu okna a więc ustawienie pozycji także można wykonać za pomocą ObjectInspektora

Wniosek jest taki:
1. max i position ustaw za pomocą Object Inspektora
2. skasuj FormCreate bo nie jest do niczego potrzebna

PS. Do czego właściwe chcesz użyć ProgressBara i co chcesz osiągnąć

[zad]

Ladowanie formy...chyba z tego zrezygnuje ale dzieki btw mail doszedl..

[Maxoff]

Po co Ci ładowanie formy, skoro to trwa niecalą sekundę i aby wyświetlić pasek postępu na formie, to ona musi być widoczna, a jeśli jest widoczna to jest załadowana. Tak tego nie zrobisz.