progressbar

Ответ от Yaroslav429[эксперт]
Во первых надо было сказать какая среда.. .
Вот для BCB (перевести на Delphi очень просто)
Добавляем кнопку (Button1), таймер (Timer1) и ПБ (ProgressBar1)
На OnCreate формы:
SendMessage(ProgressBar1->Handle,PBM_SETBARCOLOR,0,clRed);
Timer1->Enabled = false;
на OnClick кнопки
Timer1->Enabled = true;
на OnTimer таймера
if(ProgressBar1->Position<progressbar1->Max) ProgressBar1->StepIt();
else Timer1->Enabled = false;
Что б определить время:
У ProgressBar'a есть свойство Step - шаг.
То есть если нужно 15 секунд, то ставим такие значения в свойствах ПБ
Min = 0
Max = 150
Position = 0
Step = 10
Он проделает 15 шагов по 10, что б достичь максимума 150 (если в таймере интервал в одну секунду)
Вот и все))
yaroslav429
Профи
(694)
Borland C++ Builder