CheckBox

Компонент CheckBox, его значок находится на вкладке Standard(рис. 1). представляет собой преключатель, который может находиться в одном из двух состояний: «установленном» и «сброшенном». Рядом с переключателем обычно находится поясняющий текст. Свойства компонента CheckBox приведены в таблице 2

Рисунок 5.

Таблица 2- Свойства компонента CheckBox.

Свойство	Описание
Name	Имя(идентификатор) компонента
Caption	Комментарий(текст, который находится справа от флажка)
Checked	Состояние флажка: Если флажок установлен (в квадратике есть “галочка”), То значение Checked равно True; если флажок сброшен(нет «галочки»), то значение Checked равно False
State	Состояние флажка. В отличие о тсвойства Checked , позволяет различать установленное , сброшенное и промежуточное состояния. Состояние флажка определяет одна из констант: cbCheked(установлен); cbUnChecked(сброшен); cbGrayed (серый, неопределенное состояние)
AllowGrayed	Свойство определяет ,может ли флажок находиться в промежуточном состоянии: если значение AllowGrayed равно False , то флажок может быть только установленным или сброшенным; если значение AllowGrayed равно True, то допустимо промежуточное состояние , когда флажок и не установлен и не сброшен. Если компонент находится в промежуточном состоянии, то он окрашен в серый (gray) цвет
Left	Расстояние от левой границы флажка до левой границы формы.
Top	Расстояние от верхней границы флажка до верхней границы формы
Height	Высота поля вывода поясняющего текста
Width	Ширина поля вывода поясняющего текста
Font	Шрифт, используемый для отображения поясняющего текста
ParentFont	Признак наследования характеристик шрифта родительской формы

Button1

CheckBox2

CheckBox1

Рисунок 6. Форма программы

Следующая программа демонстрирует использование компонента CheckBox. Программа позволяет посчитать цену металлопластикового окна. Значения свойств компонентов CheckBox приведены в таблице 3.

Таблица 3 - Значения свойств компонентов CheckBox

Компонент	Свойство	Значение
CheckBox1	Caption Checked	подоконник True
CheckBox2	Caption Checked	монтаж True

procedure TForm1.button1Click (Sender: TObject);

var

w, h : real;

sum: real;

begin

w:=StrToFloat (Edit1.Text);

h:=StrToFloat (Edit2.Text);

sum:=(w/100*h/100)*2800;

If CheckBox1.Checked then

sum:=sum+2000;

if CheckBox2.Checked then

sum:=sum+5000;

Label3.Caption :=FloatToStrf (sum, ffCurrency, 6.2);

end;