Всем привет. Я сделал прогу, в которой заполняется 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 (вроде должно помочь) - не помогает... Кто знает - подскажите, как быть?
ЗЫ. Сорри, если не там тему создал, я тут новичек еще)