> -- Валерий Лаптев писал(а):
> Это в каком модуле прописано?Это общий подход к организации. В любом объекте создаём такой метод, а в наследниках этого объекта переопределяем процедуру Handle и добавляем наследников TMessage. Вообще, в учебнике же это есть. См. Wirth N. Programming In Oberon: Steps Beyond Pascal and Modula, глава 12, раздел 12.5 "Message and handlers".