Delphi - 鼠标上下滚动基础消息事件

作者: 想嗦不能嗦不能嗦又想嗦
来源: 51数据库
2021-06-26

delphi实现对鼠标上下滚动基础消息的截获并处理

前几天有客户提出需求：由于个人pc界面限制，有时候电子图档显示不全，希望通过鼠标上下滚动用来控制电子图档的放大和缩小。

下面通过一个测试demo来说明一下。

新建一个winfrm应用程序，添加一个rzmemo、applicationevents控件，如下所示。

添加applicationevents控件的onmessage事件，关键代码如下：

 1 procedure tform1.applicationevents1message(var msg: tagmsg;
 2   var handled: boolean);
 3 begin
 4   //在rzmemo1上发生鼠标滚轮事件时
 5   if (rzmemo1.focused) and (msg.message = wm_mousewheel) then
 6   begin
 7     if msg.wparam > 0 then //上滚
 8     begin
 9       rzmemo1.lines.add('上滚+1 - ' + formatdatetime('yyyy-mm-dd hh:mm:ss zzz', now()));
10     end
11     else //下滚
12     begin
13       rzmemo1.lines.add('下滚-1 - ' + formatdatetime('yyyy-mm-dd hh:mm:ss zzz', now()));
14     end;
15     handled := true; //消息已经处理完毕
16   end;
17 end;

运行效果如下，当鼠标上下滚动时触发相关消息：