Witam.
Piszę dosyć obszerny program do obliczeń pewnego technicznego zagadnienia. Chciałem dodać progressbar i zrezygnowac z wyświetlania w memo liczb od 1 do 400. Niestety progressbar "odświeża" się dopiero po wyjściu z petli. Tak właściwie to cały program jest "martwy", nawet okienka programu nie można przesunąć. Czy trzeba gdzieś włączyć odświeżanie obrazu? Memo cały czas wyświetla nowe informacje. Nie wiem co jest źle? Oto fragment kodu:
for z:=1 to 400 do
begin
poprzeczny_moment_bezwladnosci[z]:=0;
liczba_pelnych_prostopadloscianow_w_warstwie[z]:=0;
srodek_powierzchni_y[z]:=0;
srodek_powierzchni_x[z]:=0;
for x:=1 to 400 do
for y:=1 to 400 do
begin
prostopadloscian:=przestrzen[x,y,z];
liczba_przecietych_bokow:=0;
.....
....
.....
srodek_powierzchni_y[z]:= srodek_powierzchni_y[z]/liczba_pelnych_prostopadloscianow_w_warstwie[z];
srodek_powierzchni_x[z]:= srodek_powierzchni_x[z]/liczba_pelnych_prostopadloscianow_w_warstwie[z];
poprzeczny_moment_bezwladnosci[z]:=poprzeczny_moment_bezwladnosci[z]-(liczba_pelnych_prostopadloscianow_w_warstwie[z]*((maxx-minx)/400)*((maxy-miny)/400))*srodek_powierzchni_y[z]*srodek_powierzchni_y[z];
memo1.lines.Append('z= '+ FloatToStrF(z, ffFixed, 7, 2));
progressbar1.Position:=(z div 400)*100;
end;