如何让DbGrid支持鼠标滚轮滚动转

最新推荐文章于 2017-08-27 21:39:00 发布

aojie8600

最新推荐文章于 2017-08-27 21:39:00 发布

阅读量137

点赞数

原文链接：http://www.cnblogs.com/Handll/archive/2011/11/11/2245175.html

版权

本文介绍了一种在Delphi应用程序中为DBGrid组件添加鼠标滚轮翻页功能的方法。通过在ApplicationEvents控件的OnMessage事件中添加特定代码，可以实现当用户滚动鼠标滚轮时，DBGrid会相应地向上或向下滚动一行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在主窗体上加一个ApplicationEvents控件(控件在Additional面板中)，
在它的OnMessage事件中加入下述代码，一切搞定～！

procedure TFrm_main_usermanager.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var hWnd: THandle; aName: array [0..255] of char;

begin
    //给DBGrid加上鼠标滚轮
    if Msg.message <> WM_MOUSEWHEEL then exit;
    hWnd := WindowFromPoint(msg.pt);
    if boolean(GetClassName(hWnd, aName, 256))and(aName='TDBGrid') then//如果第三方控件需要修改，比如用aName='TbsSkinDBGrid'
    begin
        if Short(HIWORD(Msg.wParam)) < 0 then

        begin
            PostMessage(hWnd, WM_KEYDOWN, VK_DOWN, 0);
            PostMessage(hWnd, WM_KEYUP, VK_DOWN, 0)
        end
        else

        begin
            PostMessage(hWnd, WM_KEYDOWN, VK_UP, 0);
            PostMessage(hWnd, WM_KEYUP, VK_UP, 0);

end;

Handled := true;
end;
end;

转载于:https://www.cnblogs.com/Handll/archive/2011/11/11/2245175.html