delphi中dbgrid中数据随鼠标滚轮滚动

最新推荐文章于 2018-12-07 10:07:35 发布
原创 最新推荐文章于 2018-12-07 10:07:35 发布 · 734 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi问题

本文介绍了一种在DBGrid中使用鼠标滚轮实现上下滚动的方法。通过监听WM_MOUSEWHEEL消息并根据滚轮方向发送相应的键盘事件(VK_UP或VK_DOWN)到DBGrid控件，从而实现滚轮滚动功能。
添加ApplicationEvents1的组件:


event--onmessage属性：


    if(DBGrid1.Focused)And(Msg.message=WM_MOUSEWHEEL)then
 begin
 if Msg.wParam>0  then
      SendMessage(DBGrid1.Handle,   WM_KEYDOWN,   VK_UP,   0)
   else
      SendMessage(DBGrid1.Handle,   WM_KEYDOWN,   VK_DOWN,   0);
       Handled :=True;
       end;
delphi DBgrid 数据随着鼠标滚动而滚动！
清风古韵
06-24 1258
首先要在窗体放一个ApplicationEvents控件，在onApplicationEvents 事件中加入以下代码（第一法：只对指定名的控制起作用，第二个对类起作用）begin        if (DBGrid1.Focused)   And   (Msg.message   =   WM_MOUSEWHEEL)   then                begin           
DELPHI支持鼠标滚轮的DBGRID(可定义滚动及上下滚动事件)
09-28
1.鼠标的滚轮支持,即可以直接支持鼠标上下滚动 2.向上滚轮事件（自定义事件） 3.向下滚轮事件（自定义事件） 经本人实测可用，网上找的不是差这个就是差那个，本人综合了一下
DBGrid加鼠标滚轮滚动
cw370008359的专栏
01-06 498
procedure TFormBase.ApplicationEvents1Message(var Msg: tagMSG;   var Handled: Boolean); var   i: SmallInt; begin   if Msg.message = WM_MOUSEWHEEL then   begin     Msg.message := WM_KEYDOWN;
同步两个DBGrid的水平滚动条
08-19
同步两个DBGrid的水平滚动条 下载后需自己创建一个测试用的数据表，并连接数据库 测试发现，对于DBGrid的滚动条，单击时可同步，拖动时不能实时同步；对于cxDBGrid则拖动时也可实时同步
delphi 中得DBGRID实现鼠标滚动。
wuqinyiu的专栏
06-20 864
最近又开始写DELPHI程序了。。偶尔找到一个 delphi 中得DBGRID实现鼠标滚动的一个例子感觉很不错。保存一下吧。呵呵从Additional面板选择ApplicationEvents1控件     在onMessage事件里   procedure TFRedunDance.ApplicationEvents2Message(var Msg: tagMSG;  var Han
Delphi开发之：在DBGrid中用Mouse滚动键滚动记录
Windy 风慢慢吹
06-24 1560
首先在Unit的 private中写一过程OnMouseWheel。如下：private    { Private declarations }        procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean); 接着，实现OnMouseWheell过程的代码如下：Procedure TDeptfrm.OnMouseWhe
DELPHI实现DBGRID鼠标滚轮功能及自定义滚动事件
然而，Delphi标准库中的DBGrid并不直接支持鼠标滚轮事件，这需要开发者通过编程扩展其功能。 ### 鼠标滚轮支持的实现 要实现DBGrid组件对鼠标滚轮的支持，开发者需要捕捉Windows消息，特别是WM_MOUSEWHEEL消息。在...
Delphi 使DBGrid支持鼠标滚轮.rar
07-10
Delphi 使DBGrid支持鼠标滚轮，测试前请确保程序已连接好数据库，否则会有很长一段时间反应，读取的数据会显示在DBGrid控件中，请在DBGrid组件中滚动鼠标滚轮，可将整个列表上下滚动，便于浏览数据，这个功能在一些...
DELPHI中实现DBGrid滚轮翻页的自定义控件
在Delphi中，DBGrid控件本身不支持鼠标滚轮控制滚动的功能，因为Delphi的标准DBGrid控件设计时没有将滚轮事件作为滚动的驱动方式。所以，开发者为了能够实现这样的交互方式，需要编写相应的代码来捕捉滚轮事件，并将...
彻底解决Delphi的DBGrid控件鼠标滚轮问题
龙腾至尊的专栏
04-05 1640
Delphi的DBGrid控件对鼠标滚轮的支持有问题，不仅不能连续滚动，显示的内容还会错误。 　　在网上找了很多代码段，发现大家都只是针对一个Form页面提出解决方法，而且这些方法都存在一个同样的问题，那就是，如果DBGrid控件里正在进行编辑，则鼠标滚轮根本不起作用。 　　结合这些方法，本人提出了一个通用的解决方案，这个方案只需要在应用程序的主Form里加入处理程序就可以达到整个应用程序的所
判断DBGrid是否有滚动条
11-11
1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责！ 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用！
Delphi中的DBGrid如何实现使用鼠标滚轮上下
12-19
Delphi中的DBGrid如何实现使用鼠标滚轮上下：首先，往窗体上加入一个ApplicationEvents组件，此组件位于additional选项卡内。
delphi ScrollBox支持滚轮
11-01
delphi ScrollBox支持滚轮
dbgrideh 滚动选定记录不改变
05-05
DBGridEh让选择的记录不随垂直滚动条滚动而移动 使用Delphi的人都知道，Delphi中的Grid与PB或者其他的Grid有区别，就是在滚动时记录指针会跟着改变。能不能做到像PB中的DataWindow一样滚动时选定记录不改变呢？
DELPHI 增加鼠标滚珠事件的两种方法
09-14
给鼠标增加滚动事件的两种方法 并提出要注意的地方！
delphi中的DBGRid鼠标滚动事件
LoveJava007的专栏
01-22 928
Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);begin  if Msg.message = WM_MouseWheel then  begin    if Msg.wParam > 0 then     begin       if DBGrid.Focused then       begin         SendMes
黄聪：Delphi Dbgrid滚轮问题解决
weixin_34162228的博客
08-22 117
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;typeTDBGrid=class(DBGrids.TDBGrid) public functio...
delphi dbgrid去除滚动条
12-07 1719
//dbgrid去除滚动条 在form.show事件里写 EnableScrollBar(DBGrid1.Handle, SB_VERT, ESB_DISABLE_BOTH); ShowScrollBar(dbgrid1.Handle,SB_BOTH,false);//去掉水平和垂直 ShowScrollBar(dbgrid1.Handle, SB_VERT, false) ;//去掉垂直...
dbgrid支持鼠标滚轮
ksrsoft的专栏
08-20 1126
也可以发消息         SendMessage(Screen.ActiveForm.ActiveControl.Handle,                     WM_VSCROLL,                     SB_PAGEUP,    //SB_PAGEUP按页上滚，SB_LINEUP按行上滚                     0)       els
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值