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

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

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

Рисунок 1.

Практическая часть

Ход работы.

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

2. Разместить на форме компоненты в соответствии с рис 2. Свойству Kind кнопки BitBtn1 придать значение Close.

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

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

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

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

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

8. Выделить ListBox1, в Object Inspector’e найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора ( см. рис. 3 ) ввести названия знаков зодиака, каждый на новой строке. Нажать клавишу OK или, если вы в Delphi 1, то сохранить текст, нажав клавишу Save, под именем znak.txt, затем нажать клавишу OK

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

if key=#13 then

case Listbox1.ItemIndex of

0: Label3.Caption:='20 24-13 ';

1: Label3.Caption:='26-4 14,15,22 ';

2: Label3.Caption:='12-19 ';

3: Label3.Caption:='24,30,2,6,12,16 26,5,18 ';

4: Label3.Caption:='14,15,16,19-22 27,2,3 ';

5: Label3.Caption:='31,6,7,10 24-26 ';

6: Label3.Caption:='29-31,6,12,20 26 ';

7: Label3.Caption:='24,29,31,2,6,12,20 26,28,5,18 ';

8: Label3.Caption:='24-30 5,12 ';

9: Label3.Caption:='23-22 ';

10: Label3.Caption:='23-22 ';

11: Label3.Caption:='20 1,2 ';

end;

10. Сохранить проект, запустить и протестировать его.

Упражнения. Совершенствование проекта.

1. Изменить интерфейс программы: изменить шрифты, цвет экрана и букв.

Подсказка. Возможно придется в коде подкорректировать количество пробелов.

2. Сделать так, чтобы когда курсор мыши находится в поле ListBox1, появлялась бы подсказка о том, что надо сделать.

Подсказка. Воспользуйтесь свойствами Hint Showhint компонента ListBox1.

3. Сделать так, чтобы при нажатии клавиши Close появлялось бы окно сообщения “Вы уверены?”

Подсказка. Применить функцию MessageDlg.