onlyou13

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2020年6月30日

发送鼠标滚轮消息
摘要： procedure SendMouseWheel(destHandle: THandle; goUp: Boolean); var message: TWMMouseWheel; delta: SmallInt; begin if goUp then delta := WHEEL_DELTA els 阅读全文
posted @ 2020-06-30 14:10 onlyou13 阅读(633) 评论(0) 推荐(0) 编辑