Спасибо большое!
Присланный вами код работает. Но, есть вот какое затруднение:
Ведь событие вы определили типа TNotyfyEvent; Такое событие содержит только один параметр типа Tobject. А нужное мне событие - OnMouseWheel должно быть типа TMouseWheelEvent, и содержать гораздо больше параметров, которые как раз и нужны мне для обработки...
Так вот, я вставил ваш код в программу (для грида) - всё заработало - при вращении колеса мышки, раздаются звуки... Но мне то нужно как-то перевести это событие в процедуру, с большим количеством параметров! Мне недостаточно передать только Self.
И когда я подставляю в Form.Create вместо
MyGrid.OnMouseWheelEvent:=MouseWheelEventHandler;
строку :
MyGrid.OnMouseWheelEvent:=MyGridMouseWheel;
- то компилятор выдаёт ошибку, что количество параметров не сходится...
|