Компонента tCheckBox Это кнопка с независимой фиксацией. Такой компонент обладает следующими свойствами:
Allignment := (taLeftJustify, taRightJustify); – с помощью этого свойства можно задавать положение текста относительно кнопки.
Checked – это свойство логического типа, с помощью которого можно определять включена или выключена кнопка.
If CheckBox1.Checked then Label1.Caption := ‘Кнопка включена’;
State – определяет состояние выключателя. Может принимать следующие значения:
cbChecked -- включено
cbUnChecked -- выключено
cbGrayed – нейтральное положение
Как правило, используются выключатели с двумя состояниями: включено или выключено. Чтобы использовать выключатель с тремя состояниями необходимо использовать свойство AllowGrayed. Если AllowGrayed = true – 3 положения,
AllowGrayed = false – 2 положения.
Выключатель Checkbox обрабатывает все события от мыши и клавиатуры, а также событие активизации и снятия активизации (onEnter, onExit).
Пример.
П
ервоначальное
состояние программы может быть установлено
с помощью инспектора объектов, либо
задано в программе в обработчике
FormCreate.
procedure TForm1.FormCreate(Sender: TObject);
begin
CheckBox1.Checked := true;
Button1.Enabled := true;
CheckBox2.Checked := false;
Button2.Enabled := false;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If CheckBox1.Checked then Button1.Enabled:= true
else Button1.Enabled:= false;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
If CheckBox2.Checked then Button2.Enabled:= true
else Button2.Enabled:= false;
end;
Компонент tRadioGroup
C помощью данного компонента имеется возможность объединить несколько кнопок компонент RadioButton по функциональному назначению.
Панель переключателей позволяет проще создавать группу переключателей и облегчает определение выделенного переключателя.
Для работы с данной панелью используются следующие свойства:
Caption – заголовок панели.
Columns – свойство целого типа – число колонок (по умолчанию =1).
ItemIndex – свойство целого типа - порядковый номер выделенного переключателя. Нумерация начинается с 0. Если ни один из переключателей не выделен, то –1.
Items:TStrings;
В этом свойстве содержится список названий переключателей.
Пример.
Для того, чтобы задать названия переключателей необходимо в инспектор объектов активизировать свойство Items. ри этом открывается окно:
В секции Private необходимо описать переменную
Color : Tcolor;
В обработчике FormCreate необходимо задать первоначальное значение цвета:
Procedure TForm1.FormCreate(Sender : TObject);
begin
Color := clBlue;
end;
В обработчике RadioGroup1Click:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then Color := clBlue;
if RadioGroup1.ItemIndex=1 then Color := clGreen;
if RadioGroup1.ItemIndex=2 then Color := clRed;
end;
В обработчике Button1Click:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Font.Color := Color;
Edit1.Text := 'Группа 207218';
end;
Замечание.
Если нужно программным способом переключить любой переключатель, то можно воспользоваться записью вида:
RadioGroup1.ItemIndex := 2;