Флажки и радиокнопки

1. Флажки и радиокнопки

2. Стандартные флажки (вкл./выкл.) • Флажок служит для задания или отображения значения переменной логического типа, принимающей только два значения: да или нет. • Если возможностей для выбора больше, но в то же время ни одну выбирать не обязательно, то такой выбор можно реализовать с помощью набора независимых флажков. • В Delphi флажки реализованы компонентом CheckBox(значок вкладке Standard).

3. Использование флажка(пример приложения) Приложение начнет работу с установленным флажком: для этого в обработчике события формы OnCreateустановите значение свойства Checkedобъекта CheckBox1 равным True: procedure TForm1.FormCreate(Sender: TObject); begin CheckBox1.Checked := True end; Приложение содержит два компонента: флажок и надпись. В надписи всегда отображается текущее состояние флажка: установлен или не установлен. Создайте новое приложение, разместите на форме компонент CheckBoxи компонент Label. Далее обработайте событие объекта-флажка OnClick: procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then Labell.Caption := 'Флажок установлен' else Label1.Caption := 'Флажок сброшен' end;

4. Флажок с тремя состояниями 3 состояния флажка: • установлен (Checked=True) • сброшен (Checked=False), • неопределенное состояние —, в котором флажок отображается серым цветом. Третье состояние - для того, чтобы показать, что флажок в данный момент не активен, то есть его состояние не подлежит изменению пользователем.

5. Чтобы разрешить флажку принимать третье состояние, нужно назначить свойствуAllowGrayedзначение True. После этого за состояние флажка будет отвечать свойство State, принимающее значения • cbchecked, • cbUncheckedи • cbGrayed. В предыдущем проекте добавьте в обработчик события формы OnCreateстроку: CheckBox1.AllowGrayed := True; • Обработку события OnClickфлажка замените на: • case CheckBox1.State of cbchecked: Label1.Caption := 'Флажок установлен'; cbUnchecked: Label1.Caption := 'Флажок сброшен'; cbGrayed: Label1.Caption := 'Флажок неактивен'; End;

6. Зависимые переключатели - радиокнопки Компонент RadioButtonна вкладке Standard служит для выбора единственного варианта из нескольких, то есть из группы переключателей На одной форме одновременно может быть отмечено не более одного, а один должен быть выбран всегда, за исключением начального состояния. Зависимые переключатели имеет смысл использоватьдля выбора одного из взаимоисключающихзначений(например, пол: мужской/женский) Как и для флажка, свойство переключателя «быть отмеченным» реализовано свойством Checkedкомпонента RadioButton.

7. Пример приложения с радиокнопкамиПоместите на форму две радиокнопки и обработайте события нажатия на них следующим образом: procedure TForm1.RadioButton1Click(Sender: TObject); begin Caption := 'Выбрана шкала Цельсия'; end; procedure TForm1.RadioButton2Click(Sender: TObject); begin Caption := 'Выбрана шкала Фаренгейта'; end; В обработчике события не нужно проверять значение свойства Checked, потому что при возникновении события OnClick оно автоматически принимает значение True для того объекта RadioButton, к которому относится это событие, и False для всех остальных объектов этого типа на форме..

8. Панель зависимых переключателейКомпонент RadioGroup • Вместо нескольких компонентов RadioButton можно использовать компонент RadioGroupсо вкладки Стандартная. • Этот компонент является панелью, которая объединяет независимые переключателив логическую группу с общим заголовком (Captions). • Видимые радиокнопки создаются автоматически из списка строк, который является значением свойства Items

9. Выбор одного из переключателей генерирует событие OnClickне для него, а для всей панели. Какой именно из переключателей выбран, становится ясно из значения свойства ItemIndex: procedure TForm1.RadioGroup1Click(Sender:TObject); begin caseRadioGroup1.ItemIndex of 0..3: ShowMessage('Вы уверены, что иномарки лучше?'); 4,5: ShowMessage('Правильно, поддержите отечественного производителя.'); end; end; Разместите на форме компонент RadioGroup,а кнопки в нем создайте в обработчике события формы OnCreate: procedure TForm1.FormCreate(Sender: TObject); begin Caption:= 'Демонстрация панели переключателей'; RadioGroup1.Caption := 'Автомобиль какой марки вы купите?'; RadioGroup1.Items.Add('Вольво'); RadioGroup1.Items.Add('Опель'); RadioGroup1.Items.Add('Фольксваген'); RadioGroup1.Items.Add('Шкода'); RadioGroup1.Items.Add('Жигули'); RadioGroup1.Items.Add('Волга'); end; Добавление кнопок на панель переключателей, производится с помощью метода Add, потому что как свойство Itemsкомпонента RadioGroup,— это объекты класса TStrings.