double arrow

Дополнительные задания. Создать программу, с помощью которой можно выполнить:

1

Практика №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. Разместите на форме кнопку Выход.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  


1

Сейчас читают про: