Вкладка Win32. Компонент TProgressBar

   
На этом шаге мы рассмотрим компонент 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.



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий