zoukankan      html  css  js  c++  java
  • 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;

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

     

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

      作者:Jeremy.Wu
      出处:https://www.cnblogs.com/jeremywucnblog/
      本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

  • 相关阅读:
    程序员有哪些发展方向
    Mysql Join语法解析与性能分析
    jQuery过滤性选择器
    jQuery 基础选择器
    CSS布局模型
    CSS 盒子模型
    CSS 的继承、层叠和特殊性
    java 集合框架(一)
    从客户端中检测到有潜在危险的 Request.Form 值
    线程的一些问题
  • 原文地址:https://www.cnblogs.com/jeremywucnblog/p/11489865.html
Copyright © 2011-2022 走看看