2. План разработки программы
Открыть новый проект. Дать название форме Медицинский словарь.
Разместить в форме компоненты в соответствии с рисунком 23.4.
Рисунок 23.4
Сохранить проект в отдельной папке под именем, например, Pr3.pas и Project3.dpr
Запустить программу.
Выполнить следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действие |
Image1 |
Параметры (Properties) |
Left |
20 |
Top |
20 |
||
Height |
150 |
||
Width |
150 |
||
Picture |
Вставьте картинку |
||
Stretch |
True |
||
ListBox1 |
Параметры (Properties) |
Height |
150 |
Width |
150 |
||
Top |
20 |
||
Cursor |
crHandPoint |
||
Label1 |
Параметры (Properties) |
Caption |
Удалить название |
AutoSize (изменение размера в зависимости от текста в Caption) |
False |
||
WordWrap (разрыв строки) |
True |
||
Alignment (выравнивание текста) |
taCenter |
||
Height Width |
Установите подходящие размеры. |
Выделить ListBox1, в окне Инспектора объектов (Object Inspector) найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора (рис.23.5) ввести названия терминов, каждый на новой строке.
Сохраните набранный текст под именем Termin.txt. Для этого нажмите правую клавишу мыши и выберите режим Save. Для выхода из встроенного редактора нажмите клавишу OK.
Рисунок 23.5
Выполнить следующие действия:
Выделенная компонента
Окно инспектора объектов
Имя свойства
Действие
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;
Сохранить проект окончательно, запустить и протестировать его.