鼠标滚轮事件

Question

我有一个包含许多控件（树视图、备忘录、列表框、面板等）的表单。

当鼠标悬停在组件上并滚动滚轮时，我想自动移动这些控件的滚动条。

就像 rad studios 检查栏、工具箱、项目经理的工作方式一样。

并且在每个控件上都输入相同的代码是不可能的（到目前为止超过 11 个控件）

[已编辑]

感谢您的所有回答，但是

按钮等控件没有 滚动条，所以他们的父母（比如 面板，框架）必须移动时 鼠标滚轮在按钮上移动（子控件）

Answer 1

在表单中添加TApplicationEvents，并添加OnMessage 处理程序：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  pnt: TPoint;
  ctrl: TWinControl;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    if not GetCursorPos(pnt) then Exit;
    ctrl := FindVCLWindow(pnt);
    if Assigned(ctrl) then
    begin
      SendMessage(ctrl.Handle, Msg.message, Msg.wParam, Msg.lParam);
      Handled := true; // or maybe Msg.message := WM_NULL;
    end;
  end;
end;

更新

David Heffernan [参见 cmets] 提出了一种改进此代码的聪明方法：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  pnt: TPoint;
  ctrl: TWinControl;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    if not GetCursorPos(pnt) then Exit;
    ctrl := FindVCLWindow(pnt);
    if Assigned(ctrl) then
      Msg.hwnd := ctrl.Handle;
  end;
end;