Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с компонентами Delphi [D7, WinXP]

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

Exile (2007-06-13 16:38:00) [1]
Удалено модератором
Примечание: Правила читаем и уважаем

Сергей М. (2007-06-13 16:32:00) [2]
Удалено модератором

Exile (2007-06-13 16:24:00) [3]
Удалено модератором

sniknik (2007-06-13 16:17:00) [4]
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:15:00) [5]
ProgressBar1.Max := 32;
for i := 1 to 32 do
begin
ProgressBar1.Position := I;
sleep(100);
end;

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

Сергей М. (2007-06-13 15:59:00) [6]

> PZ (13.06.07 15:47) [2]

Мдя ...

PZ (2007-06-13 15:47:00) [7]
ProgressBar1.Position := Round((I/32)*100);

Сергей М. (2007-06-13 15:35:00) [8]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »