delphi - 如何指示鼠标滚轮输入控制光标下而不是聚焦？

Question

我使用了许多滚动控件:TTreeViews、TListViews、DevExpress cxGrids 和 cxTreeLists 等。当鼠标滚轮旋转时，无论鼠标光标在哪个控件上，具有焦点的控件都会接收输入。

您如何将鼠标滚轮输入指向鼠标光标所在的任何控件？ Delphi IDE 在这方面做得非常好。

Answer 1

尝试覆盖表单的 MouseWheelHandler像这样的方法(我没有彻底测试过):

procedure TMyForm.MouseWheelHandler(var Message: TMessage);
var
  Control: TControl;
begin
  Control := ControlAtPos(ScreenToClient(SmallPointToPoint(TWMMouseWheel(Message).Pos)), False, True, True);
  if Assigned(Control) and (Control <> ActiveControl) then
  begin
    Message.Result := Control.Perform(CM_MOUSEWHEEL, Message.WParam, Message.LParam);
    if Message.Result = 0 then
      Control.DefaultHandler(Message);
  end
  else
    inherited MouseWheelHandler(Message);

end;