5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
crossbow 2003-09-23
- 打赏
- 举报
procedure WMMouseWheel(var Msg: TWMMOUSEWHEEL); message WM_MOUSEWHEEL;
gytyl 2003-09-22
- 打赏
- 举报
好像滚轮自己就可以相应的吗,为什么要写代码列?
crossbow 2003-09-22
- 打赏
- 举报
肯定是实现滚动变换内容。
procedure WMMouseWheel(var Msg: TWMMOUSEWHEEL);
begin
if Msg.WheelDelta >= 0 then
ItemIndex := ItemIndex - 1
else
ItemIndex := ItemIndex + 1;
end;
procedure WMMouseWheel(var Msg: TWMMOUSEWHEEL);
begin
if Msg.WheelDelta >= 0 then
ItemIndex := ItemIndex - 1
else
ItemIndex := ItemIndex + 1;
end;
hongqi162 2003-09-22
- 打赏
- 举报
通过滚轮事件实现什么！
crossbow 2003-09-22
- 打赏
- 举报
截获WM_MOUSEWHEEL消息自己处理Comobo的ItemIndex
crossbow 2003-09-22
- 打赏
- 举报
截获WM_MOUSEWHEEL消息自己处理Comobo的ItemIndex
noflybird 2003-09-22
- 打赏
- 举报
TWMMOUSEWHEEL 在哪定义的？
