4. Компонент tProgressBar.
Используется для отображения процесса выполнения операции. Свойство Step позволяет задать шаг позиционирования индикатора внутри компонента, а свойство Position - текущее положение индикатора.
Свойства:
Мах - максимальное значение диапазона изменения свойства Position.
Min - минимальное значение диапазона изменения свойства Position.
Position - текущее значение отображаемой величины.
Step - шаг наращивания свойства Position методом Steplt.
Методы:
StepBy(Delta) - наращивает значение свойства Position на величину Delta.
Steplt - наращивает значение свойства Position на величину Step.
procedureTForml.ButtonlClick(Sender: TObject);
var i j:longint;
begin
for i:= 0 to 100 do begin
progressBarl .Position:=i; sleep(150);
end;
end;
Компонент tUpDown.
TupDown - цифровой регулятор. Две кнопки этого компонента предназначены для увеличения или уменьшения связанной с компонентом числовой величины. Ассоциация с любым другим компонентом задается с помощью свойства Associate.
Свойства:
Мах - максимальное значение диапазона изменения свойства Position. Min - минимальное значение диапазона изменения свойства Position. Position - текущее значение отображаемой величины.
ArrowKeys - разрешает или запрещает трактовать нажатие курсорных клавиш как команды изменения значения.
Increment - определяет шаг изменения значения свойства Position.
Wrap - допускает циклическое изменение значения свойства Position.
Компонент tToolBar.
TtoolBar - инструментальная панель. Применяется для организации группы управляющих элементов. Способен автоматически изменять размеры и положение командных кнопок.
Для создания кнопок - New Button; разделителя - New Separator (свойство - Style - tbsDivider). Для добавления картинок - использовать объект ImageList и свойство Images.