Delphi里的DBGrid鼠标滚轮事件

Delphi里的DBGrid鼠标滚轮事件是哪个哇?求解哇!!!!... Delphi 里的DBGrid 鼠标滚轮事件是哪个哇?求解哇!!!! 展开
 我来答
医学题库
2014-01-20 · TA获得超过240个赞
知道小有建树答主
回答量:498
采纳率:0%
帮助的人:215万
展开全部

在窗体添加一个TApplicationEvents组件(在Additional中),然后在它的OnMessage事件中添加如下代码:


procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean);
begin  // 当在 DBGrid1 上发生鼠标滚轮事件时  
    if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then  
    begin    
        if Msg.wParam > 0   then    // 滚轮上滚      
            SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_UP, 0)   // 向DBGrid1发送 VK_UP按键消息,其他你要处理的事件也再次处理
       else                        // 下滚      
           SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);    
       Handled := True;   // 消息已经处理完毕  
    end;
end;
TableDI
2024-07-18 广告
VLOOKUP是Excel中用于垂直查找的函数,其基本用法包括四个参数:1. 查找值:即在数据表首列中需要搜索的值。2. 数据表:包含查找值的单元格区域或数组。3. 返回值所在列数:指定返回查询区域中第几列的值。4. 查找方式:选择精确匹配... 点击进入详情页
本回答由TableDI提供
licob_1
2014-01-20 · 超过22用户采纳过TA的回答
知道答主
回答量:109
采纳率:0%
帮助的人:59.7万
展开全部
不太记得了,是来帮顶的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
sunshine_thq
2014-01-20 · 超过47用户采纳过TA的回答
知道小有建树答主
回答量:107
采纳率:0%
帮助的人:97.9万
展开全部
不知道你用的是哪个版本的DELPHI。DELPHI2010应该是onMouseWheel事件啊,D7貌似没有这个事件。
追问
我用的是D7有什么办法实现呢?
追答
在D7要么使用第三方控件,要么自定义一个事件,实在不行就把D7换成delphi2010以上版本,我也木有什么办法。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式