Перекрытие HandleEvent. Перекрытие GetEvent.
После того как Вы определили команду и установили элемент управления, который генерирует ее (например, элемент меню или кнопка диалогового окна), Вам нужно научить Ваш видимый элемент реагировать на возникновение этой команды.
Каждый видимый элемент наследует обработчик событий – метод HandleEvent, который уже знает, как реагировать на большую часть ввода пользователя. Если Вы хотите, чтобы видимый элемент делал что-то специфическое для Вашей программы, Вам необходимо перекрыть HandleEvent и научить новый обработчик событий двум вещам – как откликаться на определенные Вами команды и как реагировать на события от мыши и клавиатуры нужным Вам образом.
Метод HandleEvent определяет поведение видимого элемента. Два видимых элемента с идентичными методами HandleEvent будут одинаково откликаться на события. Когда Вы порождаете новый тип видимого элемента, Вы обычно хотите, чтобы его поведение более или менее соответствовало поведению его предка с некоторыми изменениями. Наиболее простой способ достичь этого – вызвать HandleEvent предка в методе HandleEvent нового объекта.
Общий вид HandleEvent наследника:
procedure NewDescendant.HandleEvent(var Event: TEvent);
begin
{Код, изменяющий или ограничивающей унаследованное поведение}
Inherited HandleEvent(Event);
{Код, выполняющий дополнительные функции}
end;
Другими словами, если Вы хотите, чтобы новый объект обрабатывал события не так, как это делал его предок, Вы должны перехватить определенные события до передачи события в метод HandleEvent предка. Если Вы хотите, чтобы Ваш новый объект вел себя также, как его предок, но с дополнительными функциями, Вы должны добавить код после вызова процедуры HandleEvent предка.
Перекрытие GetEvent
Единственным источником событий является метод TView.GetEvent. Только этот метод обращается к внешним источникам информации – клавиатуре и мыши. Если в Вашей программе используются другие устройства ввода информации (например, джойстик или коммуникационный канал), Вы должны перекрыть этот метод и научить его работе с нестандартными устройствами.
Проще всего перекрыть метод можно при объявлении нового типа Вашей программы, например:
Арр,…;
Uses type
MyProgram = object (TApplication)
Procedure GetEvent(var Event: TEvent);Virtual;
…..
end;
Procedure MyProgram.GetEvent(var Event: TEvent);
begin
'TApplication.GetEvent(Event);
if Event.What = evNothing then
begin
{Обращение к нестандартным источникам информации}
end
end;
Поскольку MyProgram в конечном счете наследует GetEvent от TView, все видимые элементы Вашей программы будут пользоваться новым источником информации.
Преимущества централизованного сбора событий очевидны. Перекрывая единственный метод GetEvent, Вы можете заставить программу реагировать на внешнюю информацию любым удобным для Вас способом. Например, можно перехватывать заранее обусловленные командные клавиши и развертывать их в целую серию событий. Таким способом легко создавать различного рода макрокоманды.