关于imageen控件中的TImageEnMView滚动条响应问题

Question

请教一下，imageen中的TImageEnMView控件怎么响应MouseWheel事件？我的意思是鼠标中键向上和向下滑动的时候，TImageEnMView中的滚动条也相应向前和向后滚动，试了一下不行，设置mouseinteract为mmiscroll也不行，请教怎么弄？谢谢！

Answer 1

procedure TFrmMain.imageenMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  SendMessage((Sender as TImageEnMView).Handle,WM_VSCROLL,SB_LINEDOWN,0);
end;procedure TFrmMain.imageenMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  SendMessage((Sender as TImageEnMView).Handle,WM_VSCROLL,SB_LINEUP,0);
end;

Answer 2

感谢xiaojun5556！
    不过我测试用上面的代码没有效果，不知道是不是其它属性要设置呢？谢谢！

Answer 3

谢谢二楼，代码正确，我用的是横向滚动条，将WM_VSCROLL改为WM_HSCROLL就OK了，谢谢！结贴