按下Shift键处理鼠标滚轮事件

Question

如果在按下Shift键时使用鼠标滚轮，我想实现水平滚动。但我并不在此情况下得到任何WM_MOUSEWHEEL消息：

procedure WMMouseWheel(var Msg: TMessage); message WM_MOUSEWHEEL; // is not called 

按照documentation，应该有一个WM_MOUSEWHEEL消息MK_SHIFT WPARAM。

任何想法？

Answer 1

我在代码库中找到这段代码：

procedure TMyScrollBox.WndProc(var Message: TMessage); 
begin 
    if Message.Msg=WM_MOUSEHWHEEL then begin 
    (* For some reason using a message handler for WM_MOUSEHWHEEL doesn't work. 
     The messages don't always arrive. It seems to occur when both scroll bars 
     are active. Strangely, if we handle the message here, then the messages 
     all get through. Go figure! *) 
    if TWMMouseWheel(Message).Keys=0 then begin 
     HorzScrollBar.Position := HorzScrollBar.Position + TWMMouseWheel(Message).WheelDelta; 
     Message.Result := 0; 
    end else begin 
     Message.Result := 1; 
    end; 
    end else begin 
    inherited; 
    end; 
end; 

所以，你有它。我不明白为什么会出现这种情况，但您应该可以像我这样做，并覆盖WndProc来处理此消息。