Используйте для этогоf.Input(x, y, m, isDown);.

Вот такой пример.
## Код:
```
PROCEDURE (v: View) HandleCtrlMsg* (f: Views.Frame; VAR msg: Views.CtrlMessage; VAR focus: Views.View);
      VAR x, y: INTEGER; isDown: BOOLEAN; m: SET;
   BEGIN
      WITH
      | msg: Controllers.TrackMsg DO
         IF HostPorts.ctrl IN msg.modifiers THEN
            INC(pos);
            Views.Update(v, TRUE)
         END
      | msg: Controllers.WheelMsg DO
         f.Input(x, y, m, isDown);
         IF Controllers.modify IN m THEN
            IF msg.op = Controllers.incLine THEN
               INC(pos)
            ELSE
               DEC(pos)
            END;
         END;
         Views.Update(v, TRUE)
      ELSE
      END
   END HandleCtrlMsg;
```
