Расположи на форме Прогрессбар, Таймер ну и кнопку, чтоб всё это запускать. Далее всё предельно просто:
Установи свойство Enabled у таймера false и Interval 100 допустим.
Теперь в обработчике onTimer напиши:
Code |
void __fastcall TForm1::Timer1Timer(TObject *Sender) <br /> { <br /> ProgressBar1->Position++; <br /> if(ProgressBar1->Position==ProgressBar1->Max){Timer1->Enabled=false;} <br /> } |
В бработчике событийй у кнопки пишем:
Code |
Timer1->Enabled=true; |
Всё!
Так как у нас интервал таймера равен 100(0,1сек) а максимальное значение прогрессбара равно 100 - то получается что прогрессбар заполнится за 10сек(100*0,1сек)
Таким образом, изменяя эти 2 свойства -можно добиться заполнения прогрессбара за любое время.