先在窗全上添加ApplictionEvents控件,在ADDITIONAL页中。
然后在ADDITIONAL的onmessage事件中添加如下代码:
if (Carrier_db.Focused) And (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam > 0 then
SendMessage(Carrier_db.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(Carrier_db.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
//Carrier_db是DBGRID的名字。