|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Использование ProgressBar
Здравствуйте!!! Не подскажите как подключить ProgressBar? Чтобы при нажатии на кнопку от отображал процесс.
|
#2
|
||||
|
||||
Какой именно процесс тебе надо чтобы он отображал?
Вот пример отображения ProgressBar'om позиции воспроизведения после того как была нажата кнопка: procedure TForm1.Button1Click(Sender: TObject); begin progressbar1.Max:=length; while position<length do begin progressbar1.Position:=position; end; end; // Где Position - позиция воспр., Lenght - это продолжительность Кому я должен - всем прощаю!!!! |
#3
|
||||
|
||||
Вот пример по проще и по нагляднее:
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; // переменная - счетчик begin ProgressBar1.Min := 0; // на всякий случай ставим минимум ProgressBar1.Max := 1000; // это максимальное значение положения (св-ва Position) ProgressBar1.Position := 0; // обнуляем текущее положение // при каждой итерации (проходе) этого цикла // мы устанавливаем текущую позицию прогресс бара, равную // нашему счетчику, который естественно, каждую итерацию увеличивается for I := 0 to 1000 do begin ProgressBar1.Position := I; ProgressBar1.Update; Sleep(10); end; end; THE CRACKER IS OUT THERE |