Работа с компонентами Delphi

← →
SunriseGirl (2007-06-13 15:23) [0]

Кто знает как работать с TProgressBar? Потому что вот такой код не работает:
ProgressBar1.Max := 32;
for i := 1 to 32 do
ProgressBar1.Position := I
Вообще ничего не отображает.
А я хочу чтобы было видно скока процентов и показывало или сплошной линией или полосочками

← →
Сергей М. © (2007-06-13 15:35) [1]

> Вообще ничего не отображает

Отображает)
Просто оч быстро, со скоростью работы цикла)

← →
PZ (2007-06-13 15:47) [2]

ProgressBar1.Position := Round((I/32)*100);

← →
Сергей М. © (2007-06-13 15:59) [3]

> PZ (13.06.07 15:47) [2]

Мдя ...

← →
Exile (2007-06-13 16:15) [4]

ProgressBar1.Max := 32;
for i := 1 to 32 do
begin
ProgressBar1.Position := I;
sleep(100);
end;

вот так ты все увидишь, а так как ты написал..., ты просто невидишь ничего, все происходит быстро :)

← →
sniknik © (2007-06-13 16:17) [5]

with ProgressBar1 do begin
Max:= 32;
for i:= 1 to 32 do begin
Position:= i;
Application.ProcessMessages;
Sleep(1000);
end;
end;

проценты за отдельную плату...

← →
Exile (2007-06-13 16:24) [6]

Удалено модератором

← →
Exile (2007-06-13 16:38) [8]

Удалено модератором
Примечание: Правила читаем и уважаем

Работа с компонентами Delphi Найти похожие ветки