Практика №1
Разработка проекта МЕДИЦИНСКИЙ СЛОВАРЬ
Постановка задачи
Создать программу, с помощью которой можно выполнить:
после запуска программы пользователь выбирает с помощью мышки или стрелок название термина и нажимает клавишу Enter. На экране появляется определение термина (рис.23.3).
Рисунок 23.3
Пояснения: Новыми в этой работе являются использование компоненты ListBox (список) на странице палитры компонентов Стандартные (Standard), использование встроенного редактора для ввода информации Редактор строк (String List Editor) и алгоритм выбора (оператор Case), использование компоненты Image на странице палитры компонентов Дополнительно (Additional), а также обработка события на нажатие клавиши клавиатуры.
План разработки программы
1. Открыть новый проект. Дать название форме Медицинский словарь.
2. Разместить в форме компоненты в соответствии с рисунком 23.4.
Рисунок 23.4
3. Сохранить проект в отдельной папке под именем, например, Pr3.pas и Project3.dpr
4. Запустить программу.
5. Выполнить следующие действия:
|
|
Выделенная компонента | Окно инспектора объектов | Имя свойства | Действие |
Image1 | Параметры (Properties) | Left | |
Top | |||
Height | |||
Width | |||
Picture | Вставьте картинку | ||
Stretch | True | ||
ListBox1 | Параметры (Properties) | Height | |
Width | |||
Top | |||
Cursor | crHandPoint | ||
Label1 | Параметры (Properties) | Caption | Удалить название |
AutoSize (изменение размера в зависимости от текста в Caption) | False | ||
WordWrap (разрыв строки) | True | ||
Alignment (выравнивание текста) | taCenter | ||
Height Width | Установите подходящие размеры. |
6. Выделить ListBox1, в окне Инспектора объектов (Object Inspector) найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора (рис.23.5) ввести названия терминов, каждый на новой строке.
Сохраните набранный текст под именем Termin.txt. Для этого нажмите правую клавишу мыши и выберите режим Save. Для выхода из встроенного редактора нажмите клавишу OK.
Рисунок 23.5
7. Выполнить следующие действия:
Выделенная компонента | Окно инспектора объектов | Имя свойства | Действие |
ListBox1 | События (Events) | OnKeyPress | If key=#13 then case ListBox1.ItemIndex of 0:Label1.Caption:='Аномально высокая чувствительность (гиперчувствительность) иммунной системы к безобидным для организма веществам (аллергенам), приводящая к воспалительной реакции, порой опасной для жизни'; 1:Label1.Caption:='Симптом печеночной патологии - желтоватый оттенок кожи, конъюнктивы и белков глаз'; 2:Label1.Caption:='Комплекс процессов, запускаемых в организме при появлении в нем болезнетворных микробов (бактерий, вирусов и т.п.) и раковых клеток. Ведет к нейтрализации и уничтожению'; 3:Label1.Caption:='Биологический катализатор - белок, обеспечивающий протекание в организме специфической биохимической реакции, синтеза того или иного типа необходимых молекул'; 4:Label1.Caption:='Жироподобное вещество (липид), входящее в состав клеточных мембран и желчи, а также постоянно циркулирующее в крови в составе липопротеинов. Его избыток повышает риск атеросклероза.'; end; |
8. Сохранить проект окончательно, запустить и протестировать его.
|
|
Дополнительные задания
1. Изменить интерфейс программы: шрифты, цвет экрана и букв.
2. Сделать так, чтобы когда курсор мыши находится в поле ListBox1, появлялась подсказка о том, что надо сделать (см. задание №2 урока Современные программные средства).
3. Разместите на форме кнопку Выход.