Компонент RadioButton. Свойства RadioButton. пример программы с RadioButton

Компонент RadioButton

Компонент Delphi RadioButton — это «радио кнопка», как следует из названия, представляет собой элемент управления отображающийся в виде кружка с текстом размешается на форме как правила два и более переключателей. Переключатели взаимосвязаны при выборе одного переключателя другие становятся не выбранными.

Если при первом обращении ни один из компонентов RadioButton не не выбран, то достаточно кликнуть по одному из них, но в дальнейшем можно будет только «переключать» эти компоненты, снять выбор будет уже невозможно.

Свойства RadioButton

Action	Определяет действие, связанное с этим индикатором
Alignment	определяет, положение надписи (слева или справа) по отношению к переключателю
Caption	надпись переключателя
Checked	определяет выбран ли компонент
TabOrder	указывает позицию RadioButton в списке табуляции(при нажатии Tab переключается между компонентами начиная с компонента у которого TabOrder равен нулю);
TabStop	определяет доступность к кнопке с помощью клавиши Tab

пример программы с RadioButton

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

// щелчок на кнопке OK procedure TForm1. Button1Click(Sender: TObject); var w, h, s: real; // ширина, высота и площадь c: real; // цена за 1 кв. м. summ: real; // сумма st: string; // сообщение begin w: = StrToFloat(Edit1. Text); h: = StrToFloat(Edit2. Text); s: = w * h / 10000; if RadioButton1. Checked then c: = 360 // выбран переключатель " алюминий" else c: = 180; // выбран переключатель " пластик"

summ: = s * c;

st: = 'Размер: ' + Edit1. Text + 'x' + Edit2. Text + ' см' + #10 +'Материал: ';

if RadioButton1. Checked then
st: = st + 'алюминий'
else
st: = st + 'пластик';

st: = st + #10 + 'Сумма: ' + FloatToStrF(summ, ffCurrency, 6, 2);

Label3. Caption: = st;

end;

12 Следующая ⇒