Компонент CheckBox. свойства CheckBox

Компонент CheckBox

Компонент Delphi CheckBox — независимый переключатель. Этот компонент используется для включения/выключения каких-либо опций или для индикации состояния, при этом на форме CheckBox’ов может быть несколько, и каждый можно включать и выключать независимо друг от друга.

свойства CheckBox

Action	Определяет действие, связанное с этим индикатором
Alignment	определяет, положение надписи (слева или справа) по отношению к индикатору
Caption	надпись индикатора
Checked	определяет выбран ли индикатор
State	определяет состояние индикатора (вкл/выкл)
TabOrder	указывает позицию CheckBox в списке табуляции(при нажатии Tab переключается между компонентами начиная с компонента у которого TabOrder равен нулю)
AllowGrayed	определяет, доступен ли флажок в промежуточном состоянии, при AllowGrayed равным False флажок может быть установленным или сброшенным, при AllowGrayed равно True флажку доступно промежуточное состояние
TabStop	определяет доступность к кнопке с помощью клавиши Tab

ПРИМЕР

Программа демонстрирует использование компонента CheckBox. Программа позволяет посчитать цену металопластикового окна.

// щелчок на кнопке OK
procedure TForm1.Button1Click(Sender: TObject);
var
w,h: real; // размер окна
summ: real; // сумма
begin
w := StrToFloat(Edit1.Text);
h := StrToFloat(Edit2.Text);

summ := (w/100 * h/100) * 2800; // 2800 цена за 1 кв.м.

if CheckBox1.Checked then
// установлен флажок «подоконник»
summ := summ + 750;

if CheckBox2.Checked then
// установлен флажок «монтаж»
summ := summ + 1500;

Label3.Caption := FloatToStrF(summ,ffCurrency,6,2);

end;

// щелчок на переключателе «подоконник»
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Label3.Caption := »;
end;

// щелчок на переключателе «монтаж»
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
Label3.Caption := »;
end;