Поможите с ProgressBar

← →
Прямой (2003-12-15 20:25) [0]

Мастера, как сделать чтобы заработал именно ProgressBar
при таком коде прогресс не "бежит".
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
MyProgress:=TProgressBar.Create(Self);
MyProgress.Parent:=Self;
MyProgress.Height:=4;
MyProgress.Width:=246;
MyProgress.Left:=56;
MyProgress.top:=10;
MyProgress.Visible:=true;
MyProgress.Enabled:=true;
MyProgress.Max:= 100000;
For i:=1 to 100000 do
begin
MyProgress.Position:=i;
end;
end;

← →
AddRef (2003-12-15 20:30) [1]

в цикл вставь Application.processmessages

← →
Прямой (2003-12-15 20:39) [2]

пробовал уже! И всякую другую фигню.

← →
AddRef (2003-12-15 20:44) [3]

И все же это стандартный метод устранения "небеживости" прогресс бара.

Интересно а как он у тебя должен бежать - вообще говоря такой цикл должен отработать очень быстро, сумлеваюсь что у тебя хватит реакции увидеть как бежит прогресс бар.

← →
Вася Пупкин © (2003-12-15 20:46) [4]

MyProgress.StepBy(1);

← →
Прямой (2003-12-15 20:48) [5]

Ну уж ненадо ля-ля. Кидаю на форму компонент ProgressBar
Делаю в инспекторе max=100000. И все норально видно.
На перерисовку винда тратит туеву хучу времени, так что увидеть успеешь. ;-). Да и в моем коде по идее синяя полоса должна быть в конце на 100%. А её вообще нет!

← →
Прямой (2003-12-15 20:51) [6]

Василий, пробовал, не помогает.

← →
Вася Пупкин © (2003-12-15 20:52) [7]

Она есть. Но ты ее не видишь. Для эксперимента - увеличь высоту (MyProgress.Height) Мне, чтобы увидеть, хватило 5 (1024X768)/
Поставь для начала 20.

>Прямой (15.12.03 20:48) [5]
> Кидаю на форму компонент ProgressBar
>Делаю в инспекторе max=100000. И все норально видно.
А ты поставь в инспекторе Height=4. И тоже не увидишь синюю полосу.

← →
Прямой (2003-12-15 21:00) [10]

Спасибо! Вопрос вкурил!

Поможите с ProgressBar_ом pls Найти похожие ветки