Компонент CheckBox в Delphi

Компонент CheckBox в DelphiТеперь перейдем к рассмотрению компонента CheckBox. Как всегда, давайте создадим маленькую программу, которая будет использовать этот компонент.

 

Создайте новое приложение, поместите на главную форму одну кнопку и два компонента TCheckBox. Первому компоненту дадим заголовок (свойство caption) "Разрешить закрытие программы" и имя (свойство Name) AiiowdoseCheckBox. Вто­рому компоненту дадим заголовок (caption) "Отключить кнопку" и имя (Name) EnableButtonCheckBox.

Кнопке дадим ИМЯ MyFirstButton.

Создайте обработчик события onclick ДЛЯ компонента EnableButtonCheckBox (это второй CheckBox). В нем напишем следующее:

MyFirstButton.Enabled := not EnableButtonCheckBox.Checked;

Здесь свойству Enabled нашей кнопки присваивается значение not EnableButtonCheckBox.Checked. Что ЭТО значит? СВОЙСТВО Checked компонента EnabieButtonCheckBox показывает, стоит ли флажок на этом компоненте checkBox. Если да, то свойство checked будет равно True, иначе False. Оператор not меняет булево значение на противоположное. Это значит, что если свойство checked было равно True, то в MyFirstButton.Enabled будет присвоено противоположное (False).

 

Можете попробовать запустить пример и посмотреть, что происходит. Когда вы ставите флажок против компонента с надписью "Отключить кнопку", свойство checked этого компонента меняется на True. Срабатывает событие onclick и в свойство Enabled кнопки присваивается значение свойства checked компонента CheckBox, измененное на противоположное, т. е. False. А когда свойство Enabled кнопки равно False, она становится недоступной.

 

Чтобы окончательно разобраться с работой примера, нажмите на EnabieButtonCheckBox при запущенной программе. Потом попробуйте убрать из исходного кода оператор not и снова запустите программу.

 

Теперь давайте создадим обработчик onclick для кнопки. В нем напишите сле­дующий код:

if AllowCloseCheckBox.Checked then Close;

Здесь проверяется, если свойство checked компонента AiiowdoseCheckBox (первый checkBox на форме) равно True, то закрыть программу (вызвать метод close). Иначе ничего не произойдет. Снова запустите пример и попробуйте выйти из программы с помощью установленной кнопки.

Как видите, работа этого компонента очень проста.

dle

Помоги проекту! Расскажи друзьям об этом сайте: