2.5. Кнопки-переключатели в Delphi

При написании программ для организации разветвлений часто используются компоненты в виде кнопок-переключателей. Состояние такой кнопки (включено – выключено) визуально отражается на форме. На форме (рис. 2.1) представлены кнопки-переключатели двух типов: TCheckBox и TRadioGroup.

Компонент TCheckBox организует кнопку независимого переключателя, с помощью которой можно задать свой вариант решения (типа да/нет). В программе состояние кнопки связано со значением булевской переменной, которая проверяется с помощью оператора If.

Компонент TRadiogroup организует группу кнопок – зависимых переключателей. При нажатии одной из кнопок группы все остальные кнопки отключаются. В программу передается номер включенной кнопки (0,1,2,..), который анализируется с помощью оператора Case.

2.6. Порядок выполнения задания

Вычислить значение выражения

При выполнении задания предусмотреть:

• выбор вида функции f(x): sh(x), x² или e^x,

• вывод информации о выбранной ветви вычислений,

• возможность округления полученного результата.

Составить блок-схему алгоритма.

2.6.1. Coздание формы проекта

Разместите на форме необходимые компоненты в соответствии с рис. 2.1.

Рисунок 2.1 – Форма проекта

Для этого:

• подпишите форму (свойство Caption);

• установите на форму компоненты TLabel для вывода пояснений и информации о том, по какой ветви происходило вычисление;

• установите на форму компоненты TEdit для ввода значений переменных х и y;

• установите на форму компонент TMemo для вывода результата, добавьте в него обе линейки прокрутки (свойство ScrollBars – ssBoth);

• установите на форму 2 кнопки TBitBtn: для одной из них задайте свойство Kind – bkClose (стандартная кнопка, закрывающая проект), другую кнопку подпишите Выполнить (свойство Caption), установите на нее значок (свойство Glyph и загрузите файл с расширением *.bmp);

• измените для компонент TEdit, TBitBtn, TMemo вид курсора на crHandPoint (свойство DragCursor);

• измените размеры и цвет формы (свойство Color), зада йте шрифт для компонент (свойство Font).

2.6.2.Работа с компонентом tСheckBox

Выберите в меню компонентов Standard пиктограмму и поместите ее в нужное место формы. С помощью инспектора объектов измените заголовок (Caption) на Округлить. В коде программы появилась переменная CheckBox1 типа TСheckBox. Теперь в зависимости от того, нажата кнопка или нет, булевская переменная CheckBox1.Checked будет принимать значения True или False.

2.6.3. Работа с компонентом tRadioGroup

Выберите в меню компонентов Standard пиктограмму и поместите ее в нужное место формы. На форме появится окаймленный линией чистый прямоугольник с заголовком RadioGroup1. Замените заголовок (Caption) на F(x). Для того чтобы разместить на компоненте кнопки, необходимо свойство Columns установить равным единице (кнопки размещаются в одном столбце). Дважды щелкните по правой части свойства Items мышью, появится строчный редактор списка заголовков кнопок. Наберите три строки с именами: в первой строке – sh(x), во второй – x^2, в третьей – e^x, нажмите ОК.

После этого на форме внутри окаймления появятся три кнопки-переключателя с введенными надписями.

Обратите внимание на то, что в коде программы появилась переменная RadioGroup1 типа TRadioGroup. Теперь при нажатии одной из кнопок группы в переменной целого типа RadioGroup1.ItemIndex будет находиться номер нажатой клавиши (отсчитывается от нуля), что используется в коде приведенной ниже программы.