События Delphi
События в программировании, как и события реального мира - это какие-либо операции, происходящие в установленное время. Установленное время - это не конкретное время с точки зрения часов, это просто отклики на какие-то другие действия и изменения. События присущи объектно-ориентированному программированию и являются одной из важных черт операционной системы Windows. Работа программ с визуальным (графическим) интерфейсом немыслима без событий. Delphi предоставляет полный доступ для работы с событиями и немного упрощает программирование обработчиков событий. Целью урока является знакомство с наиболее часто используемыми событиями, а также с приёмами написания обработчиков для них.
Где найти события? В одном из первых уроков было упомянуто, что каждый объект имеет свойства и события и всё это доступно через Object Inspector . Список всех событий, которые поддерживает объект, находится на вкладке Events Инспектора Объектов. Формат данных аналогичен закладке со свойствами: слева указывается название события, а справа - обработчик, который присвоен событию. Обратите внимание, что всем событиям обычно даются названия, начинающиеся со слова "On " (англ. - "на "). Это хороший тон и довольно устоявшаяся традиция. Такие названия позволяют быстро отличить события от свойств. По аналогии со свойствами, событиям дают вполне логичные имена. Увидев незнакомое событие, в 95% случаев только по названию можно догадаться, когда событие происходит. Если же событие не совсем понятно, либо хочется больше узнать о нём, можно воспользоваться встроенной справочной системой Delphi. Для этого нужно установить курсор на строку с интересующим событием и просто нажать F1 - справочная система откроется на странице с информацией о выбранном событии (если, конечно, оно описано в справке). Для всех стандартных компонент в справочной системе информации предостаточно. Если используется какой-либо сторонний компонент, то описание следует искать в документации, которая идёт вместо с самим компонентом. Некоторые компоненты (в основном - крупные пакеты из большого числа компонент) самостоятельно интегрируют свою документацию в справочную систему Delphi при установке. Автоматическое создание обработчиков событий Обработчик события
- это набор команд, которые выполняются при вызове события. Создавать обработчики можно двумя способами: прямо в среде Delphi - автоматически, и программным путём, т.е. во время выполнения программы. Создать обработчик очень просто: достаточно дважды щёлкнуть по полю рядом с названием события в Инспекторе Объектов и откроется редактор кода с заготовкой обработчика. Остаётся лишь написать требуемый код между begin
и end
(курсор уже будет стоять в том месте) и обработчик готов. Как видите, всё довольно просто и быстро. Однако в предыдущих уроках Вы видели, что обработчик создавался и просто при двойном щелчке по объекту на форме... Да, действительно, в этом случае тоже создаётся обработчик. Но этот способ ничем не отличается от только что описанного, просто для каждого объекта задано событие по умолчанию, для которого создаётся обработчик при двойном щелчке. Как правило, это самые используемые события. Например, для кнопки это конечно же будет щелчок по ней. Для нестандартных компонент, если событие по умолчанию не обозначено, берётся первое попавшееся из всех, а если событие всего одно, то выбор тем более очевиден. Событие может иметь только один обработчик!
Тем не менее, если требуется задать несколько обработчиков, можно сделать следующим образом: единственный указанный обработчик просто программно запускает другие обработчики. Такой приём часто используется. Обработчик с точки зрения программного кода
Между именем объектам (TForm1 ) и именем обработчика (Button1Click ) находится точка - это символ указания на то, что Button1Click принадлежит TForm1 . При работе с любыми структурами точка указывает на принадлежность элемента этой структуре. Сейчас это не играет большой роли - просто небольшое отступление. К примеру, в языке C++ таким разделителем служит комбинация "минус и знак больше": -> Раздел описаний здесь тоже присутствует, просто он является пустым. Как и положено, расположен он между заголовком обработчика и разделом реализации, т.е. между первой и второй строкой. При необходимости объявления переменных или констант этот раздел описывается обычным образом - добавление ключевого слово var или const и описанием переменных или констант. |
|
Пример обработки событий №1
procedure
TForm1.Button1Click(Sender: TObject);
begin
ShowMessage("Нажата Button1"
)
end
;
procedure
TForm1.Button2Click(Sender: TObject);
begin
ShowMessage("Нажата Button2"
)
end
;
procedure
TForm1.Button3Click(Sender: TObject);
begin
ShowMessage("Нажата Button3"
)
end
;
Конечно, работать будет... Но настоящие программисты так не делают... Судите сами: а если бы было 100 кнопок - что тогда? 100 обработчиков? Конечно нет!
Можно создать один обработчик сразу для всех кнопок. Выше было сказано, что это можно сделать, если выбрать в Инкспекторе Объектов обработчик события из списка... Но в случае, если 100 кнопок, такой способ тоже непригоден - уйдёт много времени. Есть ещё один: если выбрать на форме сразу несколько объектов, то в Инспекторе Объектов среди свойств и событий останутся только те, которые есть у всех выбранных объектов. Этим и следует воспользоваться.
Итак, выбираем на форме все 3 кнопки (очерчивая область мышью, либо удерживая Shift), далее переходим на вкладку Events в ИО и создаём обработчик события OnClick . Что происходит: открывается редактор кода, но создаётся только один обработчик, хотя он присваивается всем трём кнопкам.
Вывод сообщения также реализуется одной строкой, в которую подставляется имя кнопки, которая была нажата.
procedure
TForm1.Button1Click(Sender: TObject);
begin
ShowMessage("Нажата "
+(Sender as
TButton).Name)
end
;
Как именно это работает и что делает оператор as сейчас объяснить довольно сложно. Всему своё время. Пример создан с целью показать, что дублирования всегда можно каким-то способом избежать.
Параметры, передаваемые обработчикам
У событий есть параметры. У многих событий параметр один, но у некоторых их бывает и больше - зависит от типа события. Из переданных параметров можно узнать дополнительные данные и условия, при которых произошло событие. Например, если мы знаем, что пользователь передвинул курсор мыши, это ещё ни о чём не говорит и полезной информации практически не несёт. А вот если мы знаем, что курсор был передвинут в точку экрана с некоторыми известными координатами (x;y)
- это уже что-то.
Параметр, который встречается практически во всех событиях - Sender
. Он указывает на объект, который данное событие инициировал. Использовать его удобно в случае с несколькими объектами, у которых установлен один обработчик одного и того же события (как в нашем примере №1).
Вот теперь, когда мы достаточно много знаем о событиях, можно наконец рассмотреть стандартные и наиболее часто используемые из них.
OnClick - щелчок мышью по объекту. У кнопки событие также срабатывает, если нажать Enter или Пробел в тот момент, когда фокус ввода находится на кнопке.
OnDblClick - двойной щелчок мышью.
OnContextPopup - при вызове контекстного меню объекта, т.е. при щелчке правой кнопкой мыши. Среди параметров есть MousePos - координаты курсора в момент щелчка. Координата по X доступна как MousePos.X , а по Y - как MousePos.Y .
OnEnter - момент, когда объект получает фокус ввода (фокус ввода обычно изображается пунктирной рамкой на объекте; в поле ввода - это курсор; фокус один на всё приложение, т.е. работать одновременно можно лишь с одним объектом).
OnExit - момент, когда объект теряет фокус ввода.
OnMouseDown - при нажатии кнопки мыши (не обязательно левой). Параметр Button - нажатая кнопка (mbLeft - левая кнопка, mbRight - правая, mbMiddle - средняя). Shift - множество, указывающее, какие функциональные клавиши были зажаты при щелчке. Таким образом можно отслеживать, например, нажатия при зажатых Ctrl +Alt и т.п. X , Y - координаты курсора во время нажатия (относительно левого верхнего угла самого компонента, а не формы!).
OnMouseUp - событие, аналогичное OnMouseDown . Происходит при отпускании кнопки мыши. Пример комбинации этих двух событий - графический редактор: когда кнопка мыши нажата, происходит рисование, а когда отпущена - не происходит.
OnMouseMove - ещё одно событие мыши, происходящее при перемещении курсора над объектом. X , Y - координаты нового положения, Shift - множество нажатых функциональных клавиш.
OnKeyDown - при нажатии какой-либо клавиши клавиатуры в тот момент, когда фокус ввода находится на объекте. Key - код нажатой клавиши, Shift - всё то же множество функциональных клавиш (этот параметр встречается во многих событиях).
OnKeyUp - при отпускании клавиши (антипод OnKeyDown ).
OnKeyPress - при нажатии клавиши, которая печатает какой-либо символ (буква, цифра, знак). Key - уже не код клавиши, а сам символ (тип данных: Char - один символ).
OnResize - при изменении размеров объекта.
OnPaint - при отрисовке объекта на экране (например, формы).
У самой формы также есть множество событий. Отметим некоторые из них:
OnCreate - при создании формы. Обычно в обработчик этого события помещают действия, которые должны произойти при запуске программы. Но при запуске это выполнится только если форма является главной в приложении и при условии, что форма создаётся автоматически. Если в приложении одна форма - она и является главной.
OnClose - при закрытии формы.
OnCloseQuery - при попытке закрыть форму. Это событие можно использовать, если нужно заблокировать закрытие формы. В обработчике присутствует параметр CanClose (англ. - "можно закрыть "): логическое значение, тип данных - Boolean . Если после выполнения обработчика значение переменной CanClose окажется False , то закрытие формы произведено не будет. Значение этой переменной устанавливается программно. Пример использования этого события - текстовый редактор. Если пользователь ввёл текст, но не сохранил его в файл, при выходе из программы нужно спросить, следует ли сохранить изменения.
Пример обработки событий №2
Цель: запретить "прямое" закрытие формы, а спрашивать, действительно ли пользователь хочет закрыть программу. Используем событие формы OnCloseQuery . В обработчике выведем диалоговое окно и, если пользователь ответит "Нет ", заблокируем закрывание. Для вывода окна диалога воспользуемся функцией MessageDlg . Подробнее о ней и о её параметрах Вы узнаете в одном из следующих уроков. Наш обработчик:
procedure
TForm1.FormCloseQuery(Sender: TObject; var
CanClose: Boolean);
begin
if
MessageDlg("Вы действительно хотите выйти?"
,mtWarning,,0) = mrNo then
CanClose:=
False
end
;
Проверяемое условие - нажата ли кнопка "Нет ". Если она нажата, блокирум закрытие присвоением переменной CanClose значения False . В результате при закрытии увидим следующее:
События (продолжение)
OnDestroy - при уничтожении формы (после закрытия форма уничтожается и освобождается занятая ей память).
OnShow - при показе формы на экран.
OnHide - при скрытии формы с экрана.
OnActivate - момент, когда форма становится активной, т.е. когда ей передаётся фокус ввода (например, когда пользователь щёлкнул по форме).
OnDeactivate - соответственно, когда форма теряет фокус.
OnChange - при изменении чего-либо (например, у поля ввода TEdit это событие срабатывает, когда изменяется текст в этом поле).
OnDragDrop , OnDragOver , OnEndDock , OnEndDrag , OnStartDock , OnStartDrag - все эти события связаны с технологией Drag&Drop (т.е. когда объект "захватывается" мышью и переносится в другое место), а также с Dock -технологией. Суть этой (Dock) технологии во встраивании одних объектов в другие. Например, если взять Object Inspector за заголовок и переместить на нижнюю часть Object TreeView , а затем отпустить, то окна объединятся, а если переместить его в центр Object TreeView , то закладок станет 3 (Object TreeView станет третьей закладкой).
Как видите, событий великое множество и описывать их все просто бессмысленно - их названия раскрывают смысл самих событий. Достаточно знать о том, какие события вообще существуют.
Заключение
Мы рассмотрели работу с событиями - одни из принципов объектно-ориентированного программирования. Таким образом, разработка визуальной программы для Windows сводится к написанию обработчиков на события, в которых описывается взаимодействие объектов друг с другом.
Вид созданной формы подсказывает, как работает приложение. Очевидно, что пользователь должен ввести в поля редактирования исходные данные и щелкнуть мышью на кнопке Вычислить. Щелчок на изображении командной кнопки - это пример того, что в Windows называется событием.
Событие (Event) - это то, что происходит во время работы программы. В Delphi каждому событию присвоено имя. Например, щелчок кнопкой мыши - это событие O nClick, двойной щелчок мышью - событие O nDblClick.
В табл. 9 приведены некоторые события Windows.
Таблица 9
|
Событие |
Происходит |
|
OnClick |
При щелчке кнопкой мыши |
|
OnDblClick |
При двойном щелчке кнопкой мыши |
|
OnMouseDown |
При нажатии кнопки мыши |
|
OnMouseUp |
При отпускании кнопки мыши |
|
OnMouseMove |
При перемещении мыши |
|
OnKeyPress |
При нажатии клавиши клавиатуры |
|
OnKeyDown |
При нажатии клавиши клавиатуры. События OnKeyDown и OnKeyPress - это чередующиеся, повторяющиеся события, которые происходят до тех пор, пока не будет отпущена удерживаемая клавиша (в этот момент происходит событие OnKeyUp) |
|
OnKeyUp |
При отпускании нажатой клавиши клавиатуры |
|
OnCreate |
При создании объекта (формы, элемента управления). Процедура обработки этого события обычно используется для инициализации переменных, выполнения подготовительных действий |
|
OnPaint |
При появлении окна на экране в начале работы программы, после появления части окна, которая, например, была закрыта другим окном и в других случаях |
|
OnEnter |
При получении элементом управления фокуса |
|
OnExit |
При потере элементом управления фокуса |
Реакцией на событие должно быть какое-либо действие. В Delphi реакция на событие реализуется как процедура обработки события. Таким образом, для того, чтобы программа выполняла некоторую работу в ответ на действия пользователя, программист должен написать процедуру обработки соответ ствующего события. Следует обратить внимание, на то, что значительную часть обработки событий берет на себя компонент. Поэтому программист должен разрабатывать процедуру обработки события только в том случае, если реакция на событие отличается от стандартной или не определена. Например, если по условию задачи ограничений на символы, вводимые в поле Edit, нет, то процедуру обработки события onKeyPress писать не надо, т. к. во время работы программы будет использована стандартная (скрытая от программиста) процедура обработки этого события.
Методику создания процедур обработки событий рассмотрим на примере процедуры обработки события OnClick для командной кнопки Вычислить .
Чтобы приступить к созданию процедуры обработки события, надо сначала в окне Object Inspector выбрать компонент, для которого создается процедура обработки события. Затем, в этом же окне нужно выбрать вкладку Events (События).
В левой колонке вкладки Events (рис. 21) перечислены имена событий, которые может воспринимать выбранный компонент (объект). Если для события определена (написана) процедура обработки события, то в правой колонке, рядом с именем события, выводится имя этой процедуры.
Рис. 21. На вкладке Events перечислены события, которые может воспринимать компонент
Для того чтобы создать функцию обработки события, нужно сделать двойной щелчок мышью в поле имени процедуры обработки соответствующего события. В результате этого откроется окно редактора кода, в которое будет добавлен шаблон функции обработки события, а в окне Object Inspector , рядом с именем события, появится имя функции его обработки (рис. 22).
Delphi присваивает функции обработки события имя, которое состоит из двух частей. Первая часть имени идентифицирует форму, содержащую объект (компонент), для которого создана процедура обработки события. Вторая часть имени идентифицирует сам объект и событие. В нашем примере имя формы - Form1, имя командной кнопки- Button1, а имя события - Click.
Рис. 22. Пример процедуры обработки события, сгенерированной Delphi
В окне редактора кода между словами begin и end можно печатать инструкции, реализующие функцию обработки события.
В листинге 1 приведен текст функции обработки события OnClick для командной кнопки Вычислить. Обратите внимание на то, как представлена программа. Ее общий вид соответствует тому, как она выглядит в окне редактора кода: ключевые слова выделены полужирным, комментарии - курсивом (выделение выполняет редактор кода). Кроме того, инструкции программы набраны с отступами, в соответствии с принятыми в среде программистов правилами хорошего стиля.
Листинг 1. Процедура обработки события OnClick на кнопке Вычислить
// нажатие кнопки Вычислить
procedure TForm1.ButtonlClick(Sender: TObject);
dist: integer; // дистанция, метров
t: real; // время, как дробное число
min: integer; // время, минуты sek: integer; // время, секунды
v: real; // скорость
begin
// получить исходные данные из полей ввода
dist:= StrToInt(Edit1.Text);
t:= StrToFloat(Edit2.Text);
// предварительные преобразования
min:= Trunc(t); // кол-во минут - это целая часть числа t
sek:= Trunc(t*100) mod 100; // кол-во секунд - это дробная часть числа t
// вычисление
v:= (dist/1000) / ((min * 60 + sek)/3600);
// вывод результата
label4.Caption:= "Дистанция: "+ Edit1.Text + " м" + #13 +
"Время: " + IntToStr(min) + " мин " + IntToStr(sek) + " сек " + #13 +
"Скорость: " + FloatToStrF(v,ffFixed,4,2) + " км/час";
end;
Функция Button1Click выполняет расчет скорости и выводит результат расчета в поле Label4 . Исходные данные вводятся из полей редактирования Edit1 и Edit2 путем обращения к свойству Text.
Свойство Text содержит строку символов, которую во время работы программы введет пользователь. Для правильной работы программы строка должна содержать только цифры. Для преобразования строки в числа в программе используются функции S trToInt и S trToFloat. Функция StrToInt проверяет символы строки, переданной ей в качестве параметра (Edit1.Text - это содержимое поля Editl), на допустимость, и, если все символы верные, возвращает соответствующее число. Это число записывается в переменную dist. Аналогичным образом работает функция StrToFloat, которая возвращает дробное число, соответствующее содержимому поля Edit2. Это число записывается в переменную t.
После того как исходные данные будут помещены в переменные dist и t, выполняются подготовительные действия и расчет. Первоначально с использованием функции Trunc , которая "отбрасывает" дробную часть числа, выделяется целая часть переменной t - это количество минут. Значением выражения Trunc (t * l00) mod 100 является количество секунд. Вычисляется это выражение так. Сначала число t умножается на 100. Полученное значение передается функции Trunc , которая возвращает целую часть результата умножения t на 100. Полученное таким образом число делится по модулю на 100. Результат деления по модулю - это остаток от деления.
После того как все данные готовы, выполняется расчет. Так как скорость должна быть выражена в км/час, то значения дистанции и времени, выраженные в метрах и минутах, преобразуются в километры и часы.
Вычисленное значение скорости выводится в поле Label4 путем присваивания значения свойству C aption. Для преобразования чисел в строки используются функции IntToStr и EloatToStr.
В результате нажатия кнопки Завершить программа должна завершить работу. Чтобы это произошло, надо закрыть, убрать с экрана, главное окно программы. Делается это при помощи метода C lose. Процедура обработки события OnClick для кнопки Завершить приведена в листинге 2.
Листинг 2. Процедура обработки события OnClick на кнопке Завершить
// нажатие кнопки Завершить
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close; // закрыть главное окно программы
end;
Вид созданной формы подсказывает, как работает приложение. Очевидно, что пользователь должен ввести в поля редактирования исходные данные и щелкнуть мышью на кнопке Вычислить . Щелчок на изображении командной кнопки - это пример того, что в Windows называется событием .
Событие (Event ) - это то, что происходит во время работы программы. В Delphi каждому событию присвоено имя. Например, щелчок кнопкой мыши - это событие OnClick , двойной щелчок мышью событие OnDblClick .
В табл. В9 приведены некоторые события Windows.
Таблица В9 . События.
| Событие | Происходит |
|---|---|
| OnClick | При щелчке кнопкой мыши |
| OnDblClick | При двойном щелчке кнопкой мыши |
| OnMouseDown | При нажатии кнопки мыши |
| OnMouseUp | При отпускании кнопки мыши |
| OnMouseMove | При перемещении мыши |
| OnKeyPress | При нажатии клавиши клавиатуры |
| OnKeyDown | При нажатии клавиши клавиатуры. События OnKeyDown и OnKeyPress - это чередующиеся, повторяющиеся события, которые происходят до тех пор, пока не будет отпущена удерживаемая клавиша (в этот момент происходит событие OnKeyUp ) |
| OnKeyUp | При отпускании нажатой клавиши клавиатуры |
| OnCreate | При создании объекта (формы, элемента управления). Процедура обработки этого события обычно используется для инициализации переменных, выполнения подготовительных действий |
| OnPaint | При появлении окна на экране в начале работы программы, после появления части окна, которая, например, была закрыта другим окном, и в других случаях |
| OnEnter | При получении элементом управления фокуса |
| OnExit | При потере элементом управления фокуса |
Реакцией на событие должно быть какое-либо действие. В Delphi реакция на событие реализуется как процедура обработки события . Таким образом, для того чтобы программа выполняла некоторую работу в ответ на действия пользователя, программист должен написать процедуру обработки соответствующего события. Следует обратить внимание на то, что значительную часть обработки событий берет на себя компонент. Поэтому программист должен разрабатывать процедуру обработки события только в том случае, если реакция на событие отличается от стандартной или не определена. Например, если по условию задачи ограничений на символы, вводимые в поле Edit , нет, то процедуру обработки события OnKeyPress писать не надо, т. к. во время работы программы будет использована стандартная (скрытая от программиста) процедура обработки этого события.
Методику создания процедур обработки событий рассмотрим на примере процедуры обработки события OnClick для командной кнопки Вычислить .
Чтобы приступить к созданию процедуры обработки события, надо сначала в окне Object Inspector выбрать компонент, для которого создается процедура обработки события. Затем в этом же окне нужно выбрать вкладку Events (События).
Вычислить.
событием.
Таблица В9.
События
|
Событие
|
Происходит
|
||
|
При щелчке кнопкой мыши |
|||
|
При нажатии кнопки мыши |
|||
|
При отпускании кнопки мыши |
|||
|
При перемещении мыши |
|||
Вычислить.
Object Inspector
Events
(События).
Рис. В26.
На
вкладке Events
В левой колонке вкладки Events
Object
Inspector
Рис. В27.
Вычислить.
Листинг В1.
// нажатие кнопки
Вычислить
procedure
dist: integer;
// дистанция, метров
t: real; // время
как дробное число
min: integer; // время, минуты
sek: integer;
// время, секунды
v:
real;
// скорость
begin
//
//
min:= Trunc(t);
//
sek:= Trunc(t*100) mod 100;
//
// числа t
// вычисление
// вывод результата
end;
по модулю
В результате нажатия кнопки Завершить
Завершить
приведена в листинге В2.
Листинг В2.
// нажатие
кнопки Завершить
procedure
begin
Form1.Close; //
Событие
и процедура обработки события
Вид созданной формы подсказывает,
как работает приложение. Очевидно, что пользователь должен ввести в поля редактирования
исходные данные и щелкнуть мышью на кнопке Вычислить.
Щелчок на изображении
командной кнопки - это пример того, что в Windows называется событием.
Событие (Event) - это то, что происходит
во время работы программы. В Delphi каждому событию присвоено имя. Например,
щелчок кнопкой мыши - это событие OnClick, двойной щелчок мышью событие OnDblClick.
В табл. В9 приведены
некоторые события Windows.
Таблица В9.
События
|
Событие
|
Происходит
|
||
|
При щелчке кнопкой мыши |
|||
|
При двойном щелчке кнопкой
мыши |
|||
|
При нажатии кнопки мыши |
|||
|
При отпускании кнопки мыши |
|||
|
При перемещении мыши |
|||
|
При нажатии клавиши клавиатуры |
|||
|
При нажатии клавиши клавиатуры.
События OnKeyDown и OnKeyPress - это чередующиеся, повторяющиеся события,
которые происходят до тех пор, пока не будет отпущена удерживаемая клавиша
(в этот момент происходит событие OnKeyUp) |
|||
|
При отпускании нажатой клавиши
клавиатуры |
|||
|
При создании объекта (формы,
элемента управления). Процедура обработки этого события обычно используется
для инициализации переменных, выполнения подготовительных действий |
|||
|
При появлении окна на экране
в начале работы программы, после появления части окна, которая, например,
была закрыта другим окном, и в других случаях |
|||
|
При получении элементом
управления фокуса |
|||
|
При потере элементом управления
фокуса |
|||
Реакцией на событие должно быть
какое-либо действие. В Delphi реакция на событие реализуется как процедура
обработки события.
Таким образом, для того чтобы программа выполняла некоторую
работу в ответ на действия пользователя, программист должен написать процедуру
обработки соответствующего события. Следует обратить внимание на то, что значительную
часть обработки событий берет на себя компонент. Поэтому программист должен
разрабатывать процедуру обработки события только в том случае, если реакция
на событие отличается от стандартной или не определена. Например, если по условию
задачи ограничений на символы, вводимые в поле Edit, нет, то процедуру обработки
события OnKeyPress писать не надо, т. к. во время работы программы будет использована
стандартная (скрытая от программиста) процедура обработки этого события.
Методику создания процедур обработки
событий рассмотрим на примере процедуры обработки события OnClick для командной
кнопки Вычислить.
Чтобы приступить к созданию процедуры
обработки события, надо сначала в окне Object Inspector
выбрать компонент,
для которого создается процедура обработки события. Затем в этом же окне нужно
выбрать вкладку Events
(События).
Рис. В26.
На
вкладке Events
перечислены события, которые может воспринимать компонент
(в данном случае - командная кнопка)
В левой колонке вкладки Events
(рис. В26) перечислены имена событий, которые может воспринимать выбранный
компонент (объект). Если для события определена (написана) процедура обработки
события, то в правой колонке рядом с именем события выводится имя этой процедуры.
Для того чтобы создать функцию обработки
события, нужно сделать двойной щелчок мышью в поле имени процедуры обработки
соответствующего события. В результате этого откроется окно редактора кода,
в которое будет добавлен шаблон процедуры обработки события, а в окне Object
Inspector
рядом с именем события появится имя функции его обработки (рис.
В27).
Delphi присваивает функции обработки
события имя, которое состоит из двух частей. Первая часть имени идентифицирует
форму, содержащую объект (компонент), для которого создана процедура обработки
события. Вторая часть имени идентифицирует сам объект и событие. В нашем примере
имя формы - Form1, имя командной кнопки - Buttoni, а имя события -Click.
Рис. В27.
Шаблон
процедуры обработки события, сгенерированный Delphi
В окне редактора кода между словами
begin и end можно печатать инструкции, реализующие функцию обработки события.
В листинге В1 приведен текст функции
обработки события onclick для командной кнопки Вычислить.
Обратите внимание
на то, как представлена программа. Ее общий вид соответствует тому, как она
выглядит в окне редактора кода: ключевые слова выделены полужирным, комментарии
- курсивом (выделение выполняет редактор кода). Кроме того, инструкции программы
набраны с отступами в соответствии с принятыми в среде программистов правилами
хорошего стиля.
Листинг В1.
Процедура
обработки события OnClick на кнопке Button1 (Вычислить)
// нажатие кнопки
Вычислить
procedure
TForm1.ButtonlClick(Sender:
TObject);
dist: integer;
// дистанция, метров
t: real; // время
как дробное число
min: integer; // время, минуты
sek: integer;
// время, секунды
v:
real;
// скорость
begin
// получить исходные данные из полей ввода
dist:= StrToint(Edit1.Text);
t:= StrToFloat(Edit2.Text);
// предварительные
преобразования
min:= Trunc(t);
// кол-во минут - это целая часть числа t
sek:= Trunc(t*100) mod 100;
// кол-во секунд
- это дробная часть
// числа t
// вычисление
v:= (dist/1000)
/ ((min*60 + sek)/3600);
// вывод результата
label4.Caption:= "Дистанция: "+ Edit1.Text
+ " м" + #13 + "Время: " + IntToStr(min)
+ " мин " + IntToStr(sek)
+ " сек " + #13 +
"Скорость: " +
FloatToStrF(v,ffFixed,4,2) + " км/час";
end;
Функция Button1click выполняет расчет
скорости и выводит результат расчета в поле Label4. Исходные данные вводятся
из полей редактирования Editl и Edit2 путем обращения к свойству Text. Свойство
Text содержит строку символов, которую во время работы программы введет пользователь.
Для правильной работы программы строка должна содержать только цифры. Для преобразования
строки в числа в программе используются функции StrToInt и strToFloat. Функция
strToInt проверяет символы строки, переданной ей в качестве параметра (Edit1.Text
- это содержимое поля Editl), на допустимость и, если все символы верные, возвращает
соответствующее число. Это число записывается в переменную dist. Аналогичным
образом работает функция strToFioat, которая возвращает дробное число, соответствующее
содержимому поля Edit2. Это число записывается в переменную t.
После того как исходные данные будут
помещены в переменные dist и t, выполняются подготовительные действия и расчет.
Первоначально с использованием
функции Trunc, которая "отбрасывает" дробную часть числа, выделяется
целая часть переменной t - это количество минут. Значением выражения Trunc(t*100)
mod 100 является количество секунд. Вычисляется это выражение так. Сначала число
t умножается на 100. Полученное значение передается функции Trunc, которая возвращает
целую часть результата умножения t на 100. Полученное таким образом число делится
по модулю
на 100. Результат деления по модулю - это остаток от деления.
После того как все данные готовы,
выполняется расчет. Так как скорость должна быть выражена в км/час, то значения
дистанции и времени, выраженные в метрах и минутах, преобразуются в километры
и часы.
Вычисленное значение скорости выводится
в поле Label4 путем присваивания значения свойству Caption. Для преобразования
чисел в строки используются функции IntToStr И FloatToStr.
В результате нажатия кнопки Завершить
программа должна завершить работу. Чтобы это произошло, надо закрыть, убрать
с экрана, главное окно программы. Делается это при помощи метода close. Процедура
обработки события Onclick для кнопки Завершить
приведена в листинге В2.
Листинг В2.
Процедура
обработки события Onclick на кнопке Button2 (Завершить)
// нажатие
кнопки Завершить
procedure
TForm1.Button2Click(Sender:
TObject);
begin
Form1.Close; // закрыть главное окно программы
Лабораторная работа № 4
Цель работы: научиться программировать различные обработчики событий
Управление программой в Windows основано на обработке сообщений о событиях,
которые происходят в этой многозадачной системе.
Событие -это некоторая ситуация,которая может возникнуть в аппаратномили программном обеспечении компьютера под влиянием внешних воздействий.
События можно разделить на следующие типы:
1. События, обусловленные действиями пользователя (UserEvents), которые,в своюочередь, можно классифицировать следующим образом:
События щелчка мыши;
События типа Drag&Drop, что означает "Перетащить и бросить" объект мышью;
События клавиатуры (возникающие при нажатии клавиш);
2. Обычные (программно-управляемые события), которые являются косвеннымрезультатом действий пользователя. Примерами таких событий могут служить: события активизации, и завершения какого-либо процесса, события изменения состояния отдельных компонентов (компонент получает или теряет активность) и др.;
3. События, обусловленные исключительными ситуациями ,которые могут возникать
в результате работы программ или оборудования и приводить к серьезным последствиям. Примерами таких событий могут служить: попытка деления на ноль, попытка чтения информации из несуществующего файла, неготовность устройства к работе (например, принтера или дисковода) и ряд других.
Программирование в Delphi заключается, главным образом, в организации обработки сообщений о событиях, то есть в написании кода обработчиков событий.
Обработчик события -это специальная подпрограмма,отвечающая за реакциюосновной программы на то или иное событие. ВDelphi обработчик события оформляется в виде процедуры.
Как и Windows, Delphi пытается найти обработчик на поступающее сообщение о происходящем событии. Такая подпрограмма может быть стандартной, то есть написанной для Windows и известной Delphi, либо ее создает сам программист.
Для того чтобы создать в Delphi нужный обработчик событий, следует выбрать интересующий Вас компонент, щелкнув по нему мышкой, перейти на закладку Events (События) Инспектора Объектов и, выбрав необходимое событие, дважды щелкнуть по его полю ввода. Раскроется Редактор Кода программы, куда Delphi автоматически поместит заготовку процедуры обработчика. Вам остается только вставить между служебными словами begin и end операторы программного кода, реализующие какую либо реакцию Вашей программы на данное событие. Для каждого компонента, в том числе и для формы, можно создать свои собственные обработчики событий
Списки событий, относящихся к конкретному компоненту, в том числе и к форме, заданы на странице Events (События) Инспектора Объектов.
Наиболее часто встречающиеся события для компонентов:
| Название | Событие |
| OnCreate | При создании объекта (формы, элемента управления). |
| OnClick | Одинарный щелчок левой клавиши мыши на объекте |
| OnDblClick | Двойной щелчок левой клавиши мыши на объекте |
| OnMouseDown | При нажатии кнопки мыши |
| OnMouseUp | При отпускании кнопки мыши |
| OnMouseMove | При перемещении мыши над заданным компонентом |
| OnKeyDown | Нажатие клавиши возвращает значение |
| Key(тип: Word)-код нажатой клавиши | |
| Shift(Тип: TShiftState)–состояние клавиши |
|
| OnKeyPress | Нажатая символьная клавиша возвращает значение |
| Key(тип: Char)-код нажатой клавиши | |
| ОпКеyUр | При отпускание клавиши клавиатуры |
| OnEnter | При получении элементом управления фокуса |
| OnExit | При потере элементом управления фокуса |
Для каждого события Delphi автоматически определяет имя обработчика в соответствии с именем компонента, для которого эта процедура предназначена. Например, заголовок процедуры обработчика события щелчка левой клавиши мыши (Click) для компонента кнопка (Buttonl), размещенного в окне стартовой формы (Forml) будет выглядеть следующим образом:
Procedure TForm1.Button1Click(Sender:TObject);
Одновременно может обрабатываться несколько событий, что не только упрощает программирование, но и вызвано крайней необходимостью, поскольку и сама Windows одновременно работает с большим количеством разнообразных событий.
Задание 1. Создание обработчика событий для формы"Одинарный щелчок мышью ".
Поместите на форму компонент Label (Метка). Цвет метки, тип и размер шрифта на ней задайте по желанию.
Активизируйте форму, щелкнув по ней левой клавишей мыши. Заголовку формы дайте название "Обработка событий".
Перейдите на страницу Events (События) Инспектора Объектов и внимательно рассмотрите, какие события для формы там присутствуют.
Выберете событие OnClick (Одинарный щелчок левой клавишей мыши) и в пустом поле справа от него выполните мышью двойной щелчок. В раскрывшемся окне Редактора Кода будет создана заготовка процедуры обработчика этого события для формы.
Обратите внимание на заголовок обработчика! Между ключевыми словами begin и end
вставьте подчеркнутый текст, приведенный ниже: procedure TForm1.FormСliсk(Sеndеr: TObject);
Label1.Caption: = "ПРИВЕТ! ЭТО ОДИНАРНЫЙ ШЕЛЧОК!"; end;
Запустите приложение и проверьте выполнение одинарного щелчка мышью на форме.
Задание 2. Создание обработчика событий для формы“Двойной щелчок мышью”.
Активизируйте форму, и на странице Events (События) Инспектора Объектов выберете событие OnDblClick (Двойной щелчок левой клавишей мыши).
Раскройте Редактор Кода и вставьте в заготовку обработчика события подчеркнутый текст, приведенный ниже.
