Учебные мини-проекты на Delphi [Геннадий Натанович Гутман] (pdf) читать онлайн

Учебные

мини-проекты
на DELPHI

БИБЛИОТЕЧКА «ПЕРВОГО СЕНТЯБРЯ»
Серия «Информатика»
Выпуск 3

Г.Н. Гутман

УЧЕБНЫЕ МИНИ-ПРОЕКТЫ
НА DELPHI

Москва
Чистые пруды
2005
1

Введение
Предлагаемый сборник учебных мини-проектов предназначен для
первоначального знакомства со средой Delphi. Книг “Освой Delphi за
5 минут” (или за час, два, три и т.д.) имеется достаточное количество.
Среди них много весьма добротных, действительно позволяющих быстро приступить к самостоятельной работе. Однако, что, в общем, неудивительно, имеется крайне мало литературы начального уровня, предназначенной для освоения Delphi применительно к использованию в учебном процессе. Профессиональным программистам такие задачки, как
мини-калькулятор или учебный графический редактор, неинтересны —
им, скорее, подавай примеры работы с базами данных по технологии “клиент-сервер”. А учителю это как раз совсем не нужно.
Delphi можно изучать и использовать на нескольких уровнях:
1. Работа с визуальными объективами практически без программирования.
2. Использование готовых компонентов системы с написанием на их
основе собственного программного кода.
3. Создание собственных компонентов на языке Паскаль и включение их в палитру компонентов Delphi в качестве стандартных.
4. Разработка законченных Windows-приложений.
Для школьного курса алгоритмизации более чем достаточно первого
уровня (задачи второго уровня можно решать в курсе профильной школы и на факультативах), поэтому данное пособие соответствует именно
первому уровню освоения Delphi.
Исходные файлы всех описанных проектов находятся в свободном
доступе на сайте газеты “Информатика” http://inf.1september.ru в разделе
“Download”.

3

Знакомство со средой Delphi
Запуск приложения.
Изменение свойств Формы. Сохранение приложения
При запуске Delphi на экране появляются несколько окон, которые в
совокупности и образуют среду программирования. Сверху расположено главное окно, которое содержит меню, панель инструментов и Палитру компонент. Слева — окно Инспектора объектов, справа — заготовка
будущего приложения — Форма.
Под Формой спрятано еще одно окно — Редактор кода программы. Если заглянуть в него,
то окажется, что окно уже содержит некоторый
текст. Это заготовка модуля будущей программы, написанная Delphi автоматически. Модуль
неразрывно связан с Формой. Каждое наше действие, изменяющее внешний вид и содержание
Формы, будет автоматически приводить к изменению программного кода.
Вернемся к Инспектору объектов. Окно Инспектора объектов состоит из двух вкладок (страничек), в одной из которых (Properties ) перечислены свойства объекта, в другой (Events) —
события, на которые данный объект может реагировать. Список всех имеющихся на Форме
объектов расположен вверху окна в раскрывающемся списке.
Пока что там находится всего один объект
Form1 — сама Форма. Имена объектам присваивает сама система Delphi,
их можно изменять, однако в первых проектах мы этого делать не будем. Посмотрим на список свойств — он достаточно длинный, и сначала кажется, что разбираться в нем долго и сложно. Однако значения всех
свойств уже установлены, поэтому разбираться придется только с теми
свойствами, которые мы захотим изменить. Можно даже ничего не менять — и сразу запустить программу (написанную за нас Delphi) на вы-

j

или треугольник на паполнение! Для этого можно нажать клавишу
нели инструментов или выбрать пункт Run в меню.
На экране появится окно нашего приложения, которое наделено
базовыми свойствами любого приложения Windows: окно можно перемещать по экрану, изменять его размеры, сворачивать, разворачивать и т.д. Завершим наш эксперимент нажатием на кнопку закрытия
окна приложения.
4

Рассмотрим основные свойства Формы.
Положение Формы на экране.
Left — координаты левой границы Формы на экране;
Top — координаты правой границы Формы на экране.
Эти свойства определяют, в каком месте экрана будет появляться окно
приложения при запуске программы.
Поставим эксперимент: возьмем Форму за строку заголовка и перетащим ее в другое место, следя за значением свойства Left (или Top). Мы
увидим, как это значение меняется на наших глазах! Можно сделать и
наоборот: щелкнем левой кнопкой мышки по строке со свойством Left и
изменим с клавиатуры его значение. Как только мы нажмем
дим, что Форма “перепрыгнула” в другое место экрана!

x, мы уви-

Размеры Формы.
Height — высота Формы;
Width — ширина Формы.
Эти свойства задают размеры Формы. Следует, однако, учесть, что в
эти размеры включены заголовок и граница Формы. Если же нам, как это
обычно и бывает, нужна только рабочая область Формы, то ее размеры
задаются в свойствах
ClientHeight — высота рабочей области Формы;
ClientWidth — ширина рабочей области Формы.
Заголовок Формы — свойство Caption.
Чтобы изменить заголовок Формы, необходимо набрать желаемый
текст в поле свойства. В процессе набора мы видим, как изменяется текст
в строке заголовка.
Цвет Формы — свойство Color.
В отличие от рассмотренных выше свойств, при выделении строки
свойства в Инспекторе объектов в поле значения появляется стрелочка
вниз. Нажав на нее, мы получим возможность выбрать цвет из списка.
Все элементы этого списка являются символическими константами и начинаются с символов “cl” , входящих в слово “color”. Названия некоторых цветов указывают на область их применения.
Измените свойства Формы и запустите программу.
Осталось научиться записывать созданную программу, точнее, проект, так как Delphi создает еще несколько вспомогательных файлов.
Для этого необходимо выполнить команду File || Save Project As. В
появившемся диалоговом окне выбрать (или создать) папку для записи
файлов проекта Unit1.pas и Project1.dpr. Рекомендуется при этом сменить имя “Project1” на другое, отражающее суть программы, так как
создаваемый Delphi exe-файл будет иметь имя проекта.
5

Проект “Параметры шрифта”
Классы TLabel и TButton. Понятие события. Реакция программы
на событие. Изменение свойств объекта программным путем
Познакомимся теперь с некоторыми готовыми компонентами — классами Delphi. Палитра содержит около сотни компонент (в последних версиях Delphi — еще больше). Знакомство с ними начнем с классов TLabel
и TButton, размещенных на вкладке Стандартная (Standard).

TLabel — класс “Надпись”.

Используется для нанесения надписей, поясняющего текста непосредственно на форму.
TButton — класс “Командная кнопка”.
Обычно при нажатии такой кнопки выполняется некоторое действие.
Но как наше приложение узнает, что нужно сделать? При каждом действии пользователя (нажатии на клавишу клавиатуры, кнопку мыши, перемещении мыши и т.д.) возникает событие, которое через Windows передается приложению. Например, при нажатии на кнопку мыши возникает событие OnMouseDown, при отпускании — OnMouseUp. Можно рассматривать два этих действия как один “щелчок” — тогда это событие
называется OnClick .Чтобы отреагировать на какое-либо событие, приложение должно вызвать соответствующую процедуру. Именно эти процедуры и пишет программист!
Поместим на Форму надпись Label1 и две кнопки — Button1 и
Button2. (Еще раз напомним, что имена “по умолчанию” объектам дает
Delphi.)
Многие свойства этих компонент нам уже известны. Это прежде всего свойства Height, Width, Left и Top, характеризующие размер и положение компонента. Свойство TLabel.Caption содержит текст метки,
TButton.Caption — надпись на кнопке. Свойство Color есть только у
метки, и задает оно цвет фона, на котором расположен текст.
Найдем в списке свойств метки ParentColor. По умолчанию это свойство имеет значение True, т.е. цвет метки будет таким же, как и цвет объекта, которому принадлежит метка. Если изменить цвет метки, то свойство
ParentColor изменит свое значение на False.
Но главным свойством, которое мы рассмотрим на этом занятии,
будет свойство Font. Слева от этого слова в Инспекторе объектов стоит
6

знак “плюс”. Это значит, что
свойство Font представляет собой
целый набор других свойств.
Щелкнем дважды по плюсу —
ниже появится перечень составляющих (при этом плюс изменится
на минус).
Из них для выполнения проекта нам понадобится только свойство Size , определяющее размер
шрифта.
Начальные значения параметров шрифта можно установить и
другим путем. При выделении
свойства Font в Инспекторе объектов в поле ввода появляется кнопка с тремя точками. При нажатии на эту кнопку появляется диалоговое
окно для выбора шрифта, в котором легко установить все параметры,
даже не зная их названий.
Напишем на одной из кнопок “Увеличить шрифт”. Перейдем в Инспекторе объектов на вкладку Events и дважды щелкнем по пустому полю
справа от слова OnClick. В Редакторе кода появится заготовка процедуры, реагирующей на нажатие кнопки:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
T F o r m 1 — это имя класса, в который включена процедура
Button1Click. Имя процедуры состоит из имени объекта Button1 и части
имени события OnClick. Параметром процедуры является отправитель со-

общения. Для написания процедур обработки событий этот параметр используется редко, так что мы пока не будем обращать на него внимания.
Для того чтобы увеличить размер шрифта, в тело процедуры вставим
одну строчку кода:
Label1.Font.Size := Label1.Font.Size*2;

При каждом нажатии кнопки размеры метки будут увеличиваться в
два раза. Но положение левого верхнего угла метки останется неизменным. Из-за этого текст будет уходить за правую границу Формы. (Правда, при этом автоматически появятся полосы прокрутки, позволяющие
заглянуть за “горизонт”.)
Ограничим поэтому максимальный (а заодно и минимальный) размер шрифта. В раздел implementation добавим две константы:
7

const MaxSize = 96;
MinSize = 6;

Начальное значение размера шрифта (например, 24) можно установить в Инспекторе объектов.
В процедуре TForm1.Button1Click перед присваиванием добавим
проверку:
if Label1.Font.Size*2