2. ПереключательRadioButton

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

Если в диалоговом окне надо организовать несколько групп переключателей, то каждую группу следует представить компонентом RadioGroup.

Если элемент управления находится в контейнере, то он является потомком элемента-контейнера. Следовательно, между ними существует тесная связь, в частности, при перемещении созданной таким образом рамки по форме, элементы-потомки также изменяют свое положение, однако их координатные свойства (Top, Left) при этом не изменяются. Если же в контейнер переместить уже имеющийся на форме элемент, то в этом случае связи типа предок-потомок не возникнет.

Чтобы задать варианты RadioGroup необходимо воспользоваться свойством Items.

Заголовки групп меняются свойством Caption.

Свойства компонента RadioButton

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

В форме размещается несколько переключателей, и во время проектирования один из переключателей желательно включить, а все остальные по умолчанию оставить выключенными.

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

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked then Label1.Caption:='Включен первый';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked then Label1.Caption:='Включен второй';

end;

Если в программе требуется использовать несколько групп переключателей (например, одну для выбора типа устройства, а другую для выбора его состояния), то можно применить один из двух подходов. Первый состоит в выделении для каждой группы специального объекта (панели), чтобы система Delphi могла понять, как объединяются переключатели. Второй подход состоит в использовании компонента TRadioGroup (Группа переключателей), который объединяет свойства и методы, обеспечивающие поддержку работы группы переключателей. После размещения в форме компонента TRadioGroup входящие в него переключатели задаются после перечисления их названий. Эти названия вводятся в свойство Items, имеющее тип TString.