怎样实现应用鼠标滚轮来滚动窗口的功能 ( 积分: 50 )

怎样实现应用鼠标滚轮来滚动窗口的功能
我在Form1的Event面板中看到了onMouseWheel事件,可就是不知道要怎样去做,
请各位帮帮忙,

怎样实现应用鼠标滚轮来滚动窗口的功能
我在Form1的Event面板中看到了onMouseWheel事件,可就是不知道要怎样去做,
请各位帮帮忙,

if ActiveControl is xx then
begin
if ssCtrl in Shift then //鼠标滚动 驱动水平滚动条
begin
if WheelDelta < 0 then
SendMessage(Txx(ActiveControl).Handle,WM_HSCROLL,SB_LINERIGHT ,0)
else
SendMessage(Txx(ActiveControl).Handle,WM_HSCROLL,SB_LINELEFT ,0)
end
else begin //鼠标滚动 驱动垂直滚动条
if WheelDelta < 0 then
SendMessage(TVsFlexGrid(ActiveControl).Handle,WM_VSCROLL,SB_LINEDOWN ,0)
else
SendMessage(TVsFlexGrid(ActiveControl).Handle,WM_VSCROLL,SB_LINEUP ,0)
end;
end;
Handled:=true;