Форум: "Начинающим";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];
ВнизРабота с компонентами 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]Удалено модератором
← →
Сергей М. © (2007-06-13 16:32) [7]Удалено модератором
← →
Exile (2007-06-13 16:38) [8]Удалено модератором
Примечание: Правила читаем и уважаем
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c