Результат работы процедуры:

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

Событие	Описание события
OnKeyPress	Возникает при нажатии клавиши на клавиатуре. Обычно используется в том случае, когда необходима реакция на нажатие одной из клавиш, т.к. параметр данного метода содержит ASCII-код нажатой клавиши.
OnKeyDown	Возникает при нажатии клавиши на клавиатуре
OnKeyUp	Являет парным событием для OnKeyDown и возникает при отпускании ранее нажатой клавиши
OnClick	Возникает при нажатии кнопки мыши в области компонента
OnDblClick	Возникает при двойном нажатии кнопки мыши в области компонента

Страница Standard предлагает набор компонентов для организации выбора из уже известных действий или значений.

TCheckBox – флажок с независимой фиксацией, позволяет выбрать или отменить какое-либо действие (функцию). Может находиться в трех состояниях: включенное, выключенное и неактивное.

Основные свойства:

Caption – надпись;

Alingment – расположение надписи относительно флажка;

State – состояние (cbUnchecked – нет, cbChecked – да, cbGrayed – неактивен).

Пример: при изменении состояния флажка, о его текущем состоянии будет выведена надпись.

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

case CheckBox1.State of

cbUnchecked: Label1.Caption:= 'Выключен';

cbGrayed: Label1.Caption:= 'Затемнен';

cbChecked :Label1.Caption:= 'Включен';

end;

end;

Результат работы процедуры:

TRadioButton – радиокнопка или переключатель с зависимой фиксацией, которая предназначена для выбора одной опции из нескольких взаимоисключающих, поэтому таких переключателей на форме должно быть как минимум две. Свойства данного компонента аналогичны свойствам предыдущего компонента, за исключением того, что свойство Checked может принимать значение истина только в одном компоненте, а в остальных – ложь.

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

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked

then Label1.Caption:= 'Включен первый';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked

then Label1.Caption:= 'Включен второй';

end;

Результат работы процедуры:

Как правило компоненты группируются, т.е. помещаются в контейнер. Контейнером может быть сама форма, компоненты TPanel, TGroupBox, TRadioGroup.

TRadioGroup – специальный контейнер, который предназначен для размещения зависимых переключателей класса TRadioButton. Каждый размещаемый в нем переключатель помещается в специальный список Items и доступен по индексу, что упрощает обслуживание группы.

Свойства:

Columns – определяет количество столбцов-переключателей;

ItemIndex – содержит индекс выбранного переключателя;

Items – список строк с заголовками элементов.

Пример: при выборе определенного переключателя выдать сообщение о его выборе.

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex > -1 then

Label1.Caption:= 'Выбран '+ RadioGroup1.Items [RadioGroup1.itemindex];

end;