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

[在逃喜剧人]

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

[在逃喜剧人]

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

[在逃喜剧人]

我使用的最新的4.1.4版本，用上面的代码没有效果，请指教！谢谢！

[在逃喜剧人]

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

[xiaojun5556]

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;