鼠標滾輪事件

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;