Лекция: Разработка проекта Goroscop

Постановка задачи

Разработать программу, с помощью которой пользователь мог бы выполнить следующее. Он запускает программу, выбирает знак зодиака с помощью мышки или стрелок и нажимает клавишу Enter.

На экране появляется список благоприятных и неблагоприятных дней этого знака. Программа заканчивает свою работу по нажатию клавиши Close (рис.7.7).

Рис. 7.7. Внешний вид проекта Goroscop

Пояснения. Новым в этой программе является компонента ListBox (список).

Рекомендуемый план разработки программы

1. Открыть новый проект.

Рис. 7.8.. Исходный вид проекта Goroscop

3. Сохранить проект под именем gor.pas и goros.dpr.

4. Запустить программу, затем закрыть окно проекта кнопкой Close.

5. Выделить Label1, найти в Object Inspector свойство Caption и справа от него вместо слова Label1 написать «Гороскоп с 22 ноября по 23 декабря».

6. Выделить Label2, свойству Caption придать значение «Благоприятные Неблагоприятные», т. е. справа от свойства Caption вместо слова Label2 набрать указанные слова.

7. Выделить Label3 и справа от свойства Caption убрать слово Label3.

8. Выделить ListBox1, в Object Inspector найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора (см. рис. 7.7) ввести названия знаков зодиака, каждый на новой строке.

Нажать клавишу OK.

9. В Object Inspector найти событие OnKeyPress, справа от него в поле сделать двойной щелчок левой кнопкой мыши. В том месте Unit1, где будет мигать курсор, ввести следующий код:

if key=#13 then