На этом шаге мы рассмотрим компонент TProgressBar.

    С компонентом TProgressBar (Индикатор) приходится встречаться довольно часто, так как он используется для отображения сведений о ходе длительного процесса (например, процесса инсталляции).

    В основном его свойства аналогичны свойствам компонента TTrackBar. Свойство Smooth используется для отображения вида полосы заполнения. Если его значение True, то полоса заполнения отображается как сплошная линия, в противном случае - сегментированная.

    Свойства компонента представлены в таблице 1.

Таблица 1. Свойства компонента TProgressBar

Свойство	Описание
property Max: Integer;	Определяет максимальное значение диапазона изменения свойства Position
property Min: Integer;	Определяет минимальное значение диапазона изменения свойства Position
property Position: Integer;	Содержит текущее значение отображаемой величины
property Step: Integer;	Шаг наращивания свойства Position методом StepIt

    Рассмотрим методы компонента TProgressBar.

Таблица 2. Методы компонента TProgressBar

Метод	Описание
procedure StepBy (Delta: Integer);	Наращивает значение свойства Position на величину Delta
procedure StepIt;	Наращивает значение свойства Position на величину, определяемую свойством Step

    Рассмотрим пример использования компонента TProgressBar. Для этого разместите в форме регулятор и индикатор, выровняйте значения их границ и напишите следующий обработчик события OnChange для регулятора.

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  ProgressBar1.Position:= TrackBar1.Position;
end;

    Изменения регулятора будут отображаться на индикаторе, как показано на рис. 1.

Рис.1. Взаимосвязь индикатора и регулятора

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;
type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  ProgressBar1.Position := TrackBar1.Position;
end;
end.

    На следующем шаге мы рассмотрим компонент TUpDown.

Предыдущий шаг Содержание Следующий шаг