Como adicionar suporte à roda do mouse a um componente descendente do TGraphicControl?
Eu criei um componente delphi que desce do TGraphicControl. É possível adicionar suporte para as rodas do mouse?
--- Editar ---
Eu expus os eventos MouseWheel como mostrado abaixo, mas eles não são chamados.
TMyComponent = class(TGraphicControl)
published
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
end;
--- Editar ---
Conforme sugerido abaixo, tentei interceptar as mensagens WM_MOUSEWHEEL e CM_MOUSEWHEEL, mas parece não funcionar. No entanto, consegui interceptar a mensagem CM_MOUSEENTER. Não entendo por que posso capturar um tipo de mensagem, mas não o outro.