鼠标滚轮事件

Question

我有一个带有许多控件（树形视图，备忘录，列表框，面板等）的窗体。

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

正如rad工作室检查员酒吧，工具箱，项目经理工作。

而且这是无法通行的键入每个相同的代码，每个控件（超过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; 

更新

大卫·赫弗南[查看评论]想出了一个巧妙的方法改进此代码：

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;