Турбо Паскаль 6.0



Перекрытие GetEvent.


GetEvent текущего модального видимого элемента вызывает GetEvent владельца и так далее проходя весь путь по дереву видимых элементов до TApplication.GetEvent, который ищет следующее реальное событие. Поскольку Turbo Vision всегда использует TApplication.GetEvent для поиска событий, Вы можете модифицировать события всей Вашей программы, перекрывая только один метод. Например, для реализации клавиатурных макро Вы можете просматривать события, возвращаемые GetEvent, перехватывать определенные нажатия клавиш и развертывать их в макро. С точки зрения остальной программы поток событий будет приходить прямо от пользователя.

procedure TMyApp.GetEvent(var Event: TEvent); begin TApplication.GetEvent(Event); end;




Содержание  Назад  Вперед