怎么样能够让ScrollBox控件响应鼠标中间的滚轮? 怎么样能够让ScrollBox控件响应鼠标中间的滚轮?是不是设个什么属性就行了,如果是要程序实现,能不能给我完整的程序。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 大家快来看看啊,如果不能用ScrollBox实现,那么有没有其他相类似的控件可以用,各位大哥帮帮忙啊! procedure TFormEmployeesDataOperate.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin if WheelDelta < 0 then ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0) else ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);end; SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);//下滚SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0);//上滚SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINERIGHT, 0);//右滚SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINELEFT, 0);//左滚 如何设置同一个窗口中2个TWebBrowser控件进程独立? 如何设置ListBox的 Item的背景色 如何判断串口通讯握手成功? 如何去掉程序中的部分注释? 面试的一道题! 紧急!!! 一个奇怪的问题 一个有关FTP的小问题 关于paradox7的表容量问题! midas 高难度问题,高手请进 用过PrintDBGridEh的人请进 那里有rational rose 下载阿!!!!!
如果不能用ScrollBox实现,那么有没有其他相类似的控件可以用,各位大哥帮帮忙啊!
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
begin
if WheelDelta < 0 then
ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
else
ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
end;
SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0);//上滚
SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINERIGHT, 0);//右滚
SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINELEFT, 0);//左滚