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

码农公社  210.net.cn   210= 1024  10月24日一个重要的节日--码农(程序员)节

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

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

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

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

1.jpg

添加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 > 0 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;

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

1.jpg

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

评论