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

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

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

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

新建一个WinFrm应用程序，添加一个RzMemo、ApplicationEvents控件，如下所示。

添加ApplicationEvents控件的OnMessage事件，关键代码如下：

 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;

   var Handled: Boolean);

 begin

   //在RzMemo1上发生鼠标滚轮事件时

   if (RzMemo1.Focused) and (Msg.message = WM_MOUSEWHEEL) then

   begin

     if Msg.wParam >  then //上滚

     begin

       RzMemo1.Lines.Add('上滚+1 - ' + FormatDateTime('YYYY-MM-DD hh:mm:ss zzz', Now()));

     end

     else //下滚

     begin

       RzMemo1.Lines.Add('下滚-1 - ' + FormatDateTime('YYYY-MM-DD hh:mm:ss zzz', Now()));

     end;

     Handled := True; //消息已经处理完毕

   end;

 end;

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

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

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

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