ЗНАЕТЕ ЛИ ВЫ?

Основные свойства 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. Этот компонент служит для фиксации включенного или выключенного состояния.

 





Последнее изменение этой страницы: 2017-01-25; Нарушение авторского права страницы

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.238.190.82 (0.006 с.)