TCMMouseWheel

type TCMMouseWheel = record

  MSg: Cardinal;

Cardinal value with the CM_MOUSEWHEEL identifier for the mouse wheel message.

  ShiftState: TShiftState;

State of the modifier for keys and mouse buttons.

  Unused: Byte;

Inserted for alignment only.

  WheelDelta: SmallInt;

  case Integer of

    0: (

        XPos: SmallInt;

Mouse X position as a SmallInt value.

        YPos: SmallInt;

Mouse Y position as a SmallInt value.

      );

    1: (

        Pos: TSmallPoint;

Mouse position as a TSmallPoint value.

        Result: LRESULT;

Result for the mouse wheel message. Zero (0) indicates the message was handled.

      );

end;