RadioButton

Компонент RadioButton, его значок находится на вкладке Standard , представляет собой кнопку (переключатель), состояние которой зависит от состояния других компонентов RadioButton, находящихся на форме. Обычно компоненты RadioButton объединяют в группу (достигается это путем размещения нескольких компонентов в поле компонента GroupBox). В каждый момент времени только одна из кнопок группы может находиться в выбранном состоянии (возможна ситуация ,когда ни одна из кнопок не выбрана). Состояние кнопок , принадлежащих одной группе, не зависит от состояния кнопок, принадлежащих другой группе. Свойства компонента RadioButton приведены в таблице 4.

Таблица 4 - Свойства компонента RadioButton

Свойство	Описание
Name	Имя(идентификатор) компонента
Caption	Комментарий(текст, который находится справа от флажка)
Checked	Состояние. Определяет вид кнопки: True – кнопка выбрана, False – кнопка не выбрана (выбрана другая кнопка группы)
Left	Расстояние от левой границы флажка до левой границы формы.
Top	Расстояние от верхней границы флажка до верхней границы формы
Height	Высота поля вывода поясняющего текста
Width	Ширина поля вывода поясняющего текста
Font	Шрифт, используемый для отображения поясняющего текста
ParentFont	Признак наследования характеристик шрифта родительской формы

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

Рисунок 7 - Форма программы

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

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

procedure TForm1.Button1Click (Sender: TObject);

var

w, h , s: real;

c: real;

sum: real;

st: string;

Begin

w:=StrToFloat (Edit1.Text);

h:=StrToFloat (Edit2.Text);

s:=w*h/10000;

If RadioButton 1.Checked then

C:=360

Else

C:=180;

Sum:=s*c;

St:=Размер: ‘ +Edit1.Text+’x’+Edit2.Text + см“+#10 ‘ Материал: ’;

If RadioButton 1.Checked then

St:=st+’алюминий’

Else

St:=st+’Пластик’;

St:=st+#10+’Сумма: ’ + FloatToStrF(sum, ffCurrency, 6, 2);

Label3. Caption :=st;

end;

TRadioGroup – группа зависимых переключателей.

Панель RadioGroup предназначена для создания группы зависимых переключателей. Если пользователем выбирается один из переключателей такой группы ,то значения всех остальных сбрасываются. В случае использования RadioGroup зависимые переключатели создаются автоматически на основе списка строк, заданного свойством Items (элементы).

Разработчик имеет доступ к свойству Items как во время работы программы ,так и во время визуального построения.

Для определения ,какой из элементов является выделенным, используется свойство ItemIndex (элементы нумеруются с нуля). Данное свойство позволяет заранее установить выбранный по умолчанию элемент группы. Это делается на этапе конструирования с помощью окна Инспектора объектов или программно (например, в обработчике OnActivate формы). Это же свойство позволяет программе проанализировать выбор пользователя ,например:

case RadioGroup1.ItemIndex of

0: …; // выбран 1-й переключатель

1: …; // выбран 2-й переключатель

else

….. // не выбран ни один переключатель

end;

Группу элементов управления можно разбить на несколько столбцов, количество которых задается свойством Columns.

Элементы управления, созданные панелью RadioGroup , охвачены рамкой ,в верхней части которой находится строка ,поясняющая обычно смысл параметра, для настройки которого предназначена группа. Строка , выводимая в качестве заголовка, содержится в свойстве Caption.