ProgressBar

  

Компонент delphi ProgressBar предназначен для отображения хода процесса, занимающих заметное время, например копирование больших файлов, настройку и установку приложений на компьютер и прочее. Пример возможных вариантов можно увидеть на рисунке 1

Компонент ProgressBar

Свойства 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.