3 Лабораторная работа. Панель переключателей RadioGroup и список выключателей CheckListBox
Цель работы: ознакомиться с компонентами управления: Check ListBox и Radio Group, и научиться их использовать при создании приложений.
3.1 Панель переключателей RadioGroup и список выключателей CheckListBox
Панель переключателей RadioGroup находится на странице Standard. Панель переключателей RadioGroup предназначена для выбора одного из нескольких вариантов.
Основные свойства панели переключателей:
Columns:integer; определяет число колонок, в которые будут помещаться переключатели. По умолчанию число колонок равно 1.
ItemIndex:integer; определяет порядковый номер выделенного переключателя. Нумерация начинается с нуля. Если ни один из переключателей не выделен, свойство имеет значение -1.
Item:Tstrings; содержит список названий переключателей.
Событием по умолчанию является OnClick, возникающее при выделении нового переключателя при помощи клавиатуры или мыши.
Список выключателей CheckListBox находится на странице Additional.
Если в панели переключателей RadioGroup выбранным (нажатым) может быть только один переключатель, то в списке выключателей CheckListBox каждый выключатель может находиться в одном из трех состояний:
- Включен – в выключатель помещается символ «галочки»;
- Выключен – выключатель пуст;
- Нейтральное – в выключатель помещается символ «галочки» серого цвета.
Основные свойства списка выключателей:
Checked[index:integer]:boolean; содержит состояние выключателя с индексом Index. Индексация начинается с нуля. Если i-ый выключатель включен, то Checked[i] имеет значение true, а в остальных случаях - false.
Items: Tstrings; содержит список названий выключателя.
AllowGrayed:boolean; разрешает или запрещает использовать в переключателях третье состояние - нейтральное, cbGrayed.
3.2 Задание к лабораторной работе
Создать приложение, которое при выборе номера аудитории позволяет увидеть список прикладных компьютерных программ, установленных в ней.
При выборе с помощью переключателя аудитории программа должна указать, какие приложения в этой аудитории установлены, и вывести в текстовое поле пожелания инженеру этой аудитории.
План разработки программы:
1) Разместить на форме экземпляры компонентов в соответствии с рисунком 3.1
2) Выделить объект RadioGroup1, найти свойство Items, щелкнуть на кнопке с тремя точками, расположенной справа от него. В появившемся окне встроенного редактора ввести названия аудиторий, каждое на новой строке. Установим свойство Caption равным «аудитории». Выделить CheckListBox1, найти свойство Items и внести список прикладных программ.
Рисунок 3.1
3) Активизировать RadioGroup1 двойным щелчком и в заготовку обработчика события OnClick поместить следующий код:
memo1.Clear;
for I:=0 to 10 do checklistbox1.checked[i]:=false;
case radiogroup1.ItemIndex of
0:begin checklistBox1.Checked[2]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[4]:=true;
checklistBox1.Checked[10]:=true;
checklistBox1.Checked[11]:=true;
memo1.Lines.Add('Желательно установить
дополнительно программы');
end;
1:begin checklistBox1.Checked[1]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[5]:=true;
checklistBox1.Checked[6]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[9]:=true;
checklistBox1.Checked[10]:=true;
memo1.Lines.Add('Эта аудитория занята весь день');
end;
2:begin checklistBox1.Checked[2]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[4]:=true;
checklistBox1.Checked[6]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[9]:=true;
memo1.Lines.Add('Можно установить ТурбоС++');
end;
3:begin checklistBox1.Checked[5]:=true;
checklistBox1.Checked[7]:=true;
checklistBox1.Checked[9]:=true;
memo1.Lines.Add('В этой аудитории проводятся
занятия по спецдисциплинам');
end;
4:begin checklistBox1.Checked[1]:=true;
checklistBox1.Checked[2]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[3]:=true;
memo1.Lines.Add('Это - аудитория преподавателей');
end;
end;
4) Активизировать кнопку «Закрыть» и в обработчик события OnClick вставить строку:
close;
5) Сохранить новый проект – File – Save All. Создать новую папку, дать название «Аудитория», открыть папку. Сохранить код программы и проект под именами, например, Unit1.pas и Project1.dpr. Запустить приложение на выполнение.