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

2019-09-17 09:49:21来源:博客园 阅读 ()

新老客户大回馈,云服务器低至5折

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

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;

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

 

综上,我们就可以在两个关键判断处,添加自己想要实现的业务逻辑,从而实现对鼠标上下滚动基础消息的截获和二次处理。

 


原文链接:https://www.cnblogs.com/jeremywucnblog/p/11489865.html
如有疑问请与原作者联系

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Delphi - 创建SuperDll 持续更新

下一篇:php文件加密解密