v-e-t, добрый день.
Собственно, Predeclared уже все сказал, я лишь добавлю, пару слов. Может вам пригодится.
К параметрам, которые вас интересуют (Button As Integer, Shift As Integer, X As Single, Y As Single), можно получить доступ только из модуля формы. Делегаты тут не используешь. Писать код в каждой форме вас не устраивает, значит, как сказал Predeclared, на эти события нужно подписаться откуда-нибудь. Причем это должен быть только модуль класса.
Собственно я и хотел предложить вариант.
Вот тут я выкладывал файл:
http://am.rusimport.ru/MsAccess/topic.aspx?ID=782
Тема другая, но там есть фрагмент, который можно приспособить для вашей задачи.
Вы хотите в одном месте разместить код, который будут использовать разные формы/отчеты и их контролы. Т.е. нужен класс.
в примере, что я дал, одна из подсистем это своеобразный Диспетчер уровня приложения, который следит за происходящим: Открытие/Закрытие/Активация/Декативация форм/отчетов в приложении(Диспетчер представлен двумя классами и одним интерфейсом) и генерирует соответствующие события.
Так вот. По вашей задаче. Как я сказал, вам нужен класс, где вы разместите свой код на все случаи жизни.
В моем примере таким классом был модуль формы F_Start. В этом классе, создается объектная переменная типа Диспетчера.
Это вам дает доступ ко событиям Диспетчера. А события эти:
Event AfterOpenFR(FR_Object As Object)
Event ActivationFR(FR_Object As Object, blnAfterOpen As Boolean)
Event DeactivateFR(FR_Object As Object, intReasonDeact As ReasonDeact, NewFR As Object, FR_IsBeingActivated As Object)
Event CloseFR(FR_Object As Object)
Т.е. вы получаете возможность прослушивать из одного места события Открытие(суррогат этого события)/Закрытие/Активация/Декативация всех форм/отчетов. Непосредственная дальнейшая организация - это уже ваше творчество, как построите.
у Диспетчера есть ряд ограничений. Они описаны в файле: формы не должны быть всплывающие или быть открыты как acDialog, а также все они должны иметь модуль.
