MouseWheelHandler method

void MouseWheelHandler(
  1. TMessage Message
)

Implementation

void MouseWheelHandler(TMessage Message)
{
  TCustomForm? Form = ParentForm;
  if((Form != null) && (Form != this))
    Form.MouseWheelHandler(Message);
  else
    Message.Result = Perform(CM_MOUSEWHEEL, Message.WParam, Message.LParam);
}