Основные свойства TRadioGroup

1. Свойство Items (Список строк) задает заголовки переключателей, входящих в компонент TRadioGroup. Это свойство имеет тип TString. Для ввода названий предусмотрен специальный редактор, который вызывается щелчком по кнопке .

 

Рис. 97 Ввод заголовков переключателей

2. Свойство Columns (столбцы) задает число столбцов, образованных переключателями.

 

3. Свойство ItemIndex (номер элемента) содержит номер выделенного переключателя. Исходное значение этого свойства равно -1. Число -1 показывает, что ни один переключатель не выбран. Значение этого свойства изменяется автоматически, когда выбирается один из переключателей группы. Это свойство также можно менять программно: при занесении нового значения в свойство ItemIndex, изменится и текущий выбранный переключатель.

 

Пример. Составить проект «Поздравление», в котором при выборе с помощью переключателя определенного праздника на форме отображается соответствующая открытка-поздравление.

 

Создадим графический интерфейс окна подобно тому, как изображено на рис. 97. В компоненты Image1-Image4 поместим изображения с соответствующими открытками. У всех компонентов TImage установим свойство Visible равным false.

 

Рис. 98 Графический интерфейс окна

 

В данном проекте открытка с поздравлением «С Новым годом!» должна появиться при щелчке на первом переключателе компонента RadioGroup1. Первому переключателю соответствует номер 0 в свойстве ItemIndex, второму переключателю – номер 1, третьему – номер 2, четвертому – номер 3. Следовательно, необходимо с помощью условного оператора или оператора выбора проверить, какой из переключателей выбран, и отобразить соответствующую картинку на форме.

Текст обработчика события OnClick для группы переключателей RadioGroup1 будет следующим:

 

procedure TForm1.RadioGroup1Click(Sender: TObject);

Begin

caseRadioGroup1.ItemIndex of

0: begin

Image1.Visible:=true;

Image2.Visible:=false;

Image3.Visible:=false;

Image4.Visible:=false;

end;

1: begin

Image2.Visible:=true;

Image1.Visible:=false;

Image3.Visible:=false;

Image4.Visible:=false;

end;

2: begin

Image3.Visible:=true;

Image1.Visible:=false;

Image2.Visible:=false;

Image4.Visible:=false;

end;

3: begin

Image4.Visible:=true;

Image1.Visible:=false

Image2.Visible:=false

Image3.Visible:=false

end;

end;

end;

Рис. 99 Окно работающего приложения

Реализация условного оператора и оператора выбора

Компонентом TCheckBox

Операторы условия и выбора также используются при описании работы компонента TCheckBox (Флажок) с панели Standard. Этот компонент служит для фиксации включенного или выключенного состояния.