
Практическая работа №1 Тема: Создание простой Windows-программы.
Цель: Приобрести практические навыки создания простых приложений.
Задания. Написать программу-подсказку для обучения английскому языку. Для этого на форму выводится комплект картинок. При щелчке мышкой на любой из них в нижней части формы выводится подпись — название изображенного предмета на английском языке.
ход работы
1. Создать в своей рабочей папке каталог PRACT01.
2. Скачать архив с материалами для этой практической работы. Разархивировать скачанный файл в каталог PRACT01.
3. Запустить среда Delphi и создать новый приложение
4. Выполнить File — Save All, указав пунктом назначения созданный Вами каталог PRACT01, под именами, которые предлагает среда Delphi.
5. С помощью операционной оболочки Total Commander убедиться, что в созданном Вами каталоге PRACT01 появились следующие файлы:
6. На заготовку формы, которая появилась в окне, нужно разместить 12 компонентов Image, предназначенных для вывода на форму рисунков в форматах BMP, JPG, EMF, WMF, ICO.
Вывод 12 рисунков (Image) одинаковых размеров — достаточно затратная операция. Проще вывести один Image, настроить его, скопировать (Ctrl + C) и 11 раз вставить на форму (Ctrl + V). При этом среда Delphi именно пронумерует объекты как Image1, Image2 …, Image12. Если размер рисунка не совпадает с размером контуров компонента Image, рисунок можно растянуть, установив в свойства Stretch (растянуть) значения true.
7. Теперь по очереди щелкаем на каждом компоненте Image и настраиваем для него вывода соответствующей картинки. Для этого выбираем для компонента в инспекторе объектов строку Picture и указываем соответствующий файл с рисунком из своей папки.
8. В нижней части формы разместим компонент Label1. По умолчанию в компонента Label размер шрифта определен как 8 пт. Через инспектор объектов настроим вывода текста более крупными буквами: свойство Font — Size установим равной 12, а свойства Font — Style — fsBold предоставим значение true. По умолчанию укажем название «по-английски» (свойство Caption).
9. Теперь напишем текст программы для обработки события «нажата кнопка мыши во время нахождения курсора над объектом». Начнем с первого рисунке (на нем — изображение сыра — cheese). Выбираем в инспекторе объектов для компонента Image1 событие OnMouseDown и щелкаем мышкой на свободном поле. Автоматически создается объявления метода обработки события. Между словами begin и end вписываем всего одну строку программного кода:
procedure TForm1.Image1MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin Label1.Caption: = ‘Cheese’; end;
10. Очевидно, что эта строка можно скопировать и вставить на все обработчики события для других объектов Image. для объектов это будут следующие слова (по порядке — 2, 3,
…, 12):
Calculator
Candle
Bouquet
Car
Pumpkin
Palm-tree
Plane
Jeep
Dices
Anchor
Hare
11. Изменим стандартную название Form1 на «Программа-подсказка». Для этого свойства Caption формы предоставим значение «Программа-подсказка».
12. Сохраним полученный приложение на диске и запустим его на выполнения.
13. Завершить работу со средой Delphi.
14. С операционной оболочки запустить файл с расширением ехе, который образовался в созданной Вами папке PRACT01.Результат работы программы продемонстрировать преподавателю.
15. Навести порядок на рабочем месте.