[Chuwis720]

Всем привет. Я сделал прогу, в которой заполняется ProgressBar. Код такой:

Код:

While Form1.ProgressBar1.Position<100 do
 Begin
 a:=random(15);
 Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+a;
 Sleep(3000);
 Application.ProcessMessages;
 End;

Все в принципе работает, но! - при работе прогрессбара виснет главная форма. То есть на ней ничего нельзя сделать, даже закрыть. Пробовал поставить Application.ProcessMessages (вроде должно помочь) - не помогает... Кто знает - подскажите, как быть?

ЗЫ. Сорри, если не там тему создал, я тут новичек еще)

[lmikle]

Виснет оно у тебя на sleep(3000).
Сделай так:

Код:

var
  i : Integer;
While Form1.ProgressBar1.Position<100 do
 Begin
 a:=random(15);
 Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+a;
 For i := 1 To 30 Do
   Begin
     Sleep(100);
     Application.ProcessMessages;
   End;
 End;

[Chuwis720]

Сообщение от lmikle

Begin
Sleep(100);
Application.ProcessMessages;
End;
End;

Не помогает =( Небольшое уточнение: сама прога работает, полоска двигается, но в это время ничего остальное не пашет, и "отпускает" прогу только когда полоска дойдет до 100...
P.S. Sleep(3000) - вроде на 3 секунды "усыплять" должно?

[lmikle]

Ну да, вот оно и усыпляет. Т.е. блокирует выполнение.
Если совсем не помогает (хотя должно), то тогда переделывай на потоки (TThread). Хотя вот такой фокус вполне дает возможность манипулировать с интерфейсом, хотя все и выполняется в одном, главном, потоке программы.

[Chuwis720]

Сообщение от lmikle

переделывай на потоки (TThread).

Проблема в том, что я новичек и с потоками еще не работал... Можно ли как то не "повесить", а ПРИОСТАНОВИТЬ выполнение? В Паскале я это делал через Delay, в Дельфи вместо него Sleep...

[Страдалецъ]

Да нафига вы вообще его усыпляете? Уберите вообще вызов Sleep. Вам дали не вешающую альтернативу - Application.ProcessMessages, вот ей и пользуйтесь.