Компонент delphi ProgressBar предназначен для отображения хода процесса, занимающих заметное время, например копирование больших файлов, настройку и установку приложений на компьютер и прочее. Пример возможных вариантов можно увидеть на рисунке 1
Свойства ProgressBar
| Max | максимальное значение позиции которое соответствует завершению отображаемого процесса. По умолчанию в процентах — 100 |
| Min | начальное значение позиции которое соответствует началу отображения процесса |
| Position | позиция, которую можно задать по мере протекания процесса, начинается со значения min и кончая значением max |
| Step | Шаг наращивания позиции, по умолчанию 10 |
| Smooth | Непрерывное (при значении true) отображение процесса |
| Orientation | ориентация шкалы компонента: горизонтальная или вертикальная |
Рассмотрим пример, который покажет, как работать с ProgressBar. Ставим на форму ProgressBar, Timer, button.
Для таймера ставим интервал в 20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | procedure TForm14.Button2Click(Sender: TObject); begin ProgressBar2.Show; Timer2.Enabled:=True; end; procedure TForm14.Timer1Timer(Sender: TObject); begin ProgressBar2.Position := ProgressBar2.Position +1; if ProgressBar2.Position >= ProgressBar2.Max then begin Timer1.Enabled:=False; ProgressBar2.Position:=0; end; end; end. |