Элемент «Группа переключателей»

Группы переключателей предназначены для выбора одного из нескольких вариантов действий. Их можно применять вместо экранных меню, которые использовались ранее в консольных приложениях. На вкладке «Стандартные» панели элементов группы переключателей обозначены пиктограммой

Группы переключателей описываются при помощи класса TRadioGroup, основные свойства которого приведены в следующей таблице:

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

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

Модуль Unit1.pas

UNIT Unit1;

INTERFACE

USES

Windows,Messages,SysUtils,Classes,Controls, ...;

TYPE

TForm1=CLASS(TForm)

RadioGroup1:TRadioGroup;

Button1:TButton;

PROCEDURE Button1Click(Sender:TObject);

END;

VAR

Form1:TForm1;

IMPLEMENTATION

PROCEDURE TForm1.Button1Click(Sender:TObject);

BEGIN

CASE RadioGroup1.ItemIndex OF

0:ShowMessage('Выбран вариант 1');

1:ShowMessage('Выбран вариант 2');

2:ShowMessage('Выбран вариант 3');

END;

END;

END.

Если в списке «RadioGroup1» выбрать некоторый вариант и нажать кнопку «Button1», будет выдано сообщение о выборе соответствующего варианта.