Delphi Dbgrid滚轮问题解决
发布日期:2021-09-08 15:09:15
浏览次数:4
分类:技术文章
本文共 830 字,大约阅读时间需要 2 分钟。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls; type TDBGrid = class (DBGrids.TDBGrid) public function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override ; end ; TForm1 = class (TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; ADOTable1: TADOTable; Edit1: TEdit; private { Private declarations } public { Public declarations } end ; var Form1: TForm1; implementation { $R *.dfm } function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; begin if WheelDelta < 0 then datasource.DataSet.Next; if wheelDelta > 0 then DataSource.DataSet.Prior; end ; end .
本文转自黄聪博客园博客,原文链接:http://www.cnblogs.com/huangcong/archive/2010/08/22/1805718.html,如需转载请自行联系原作者
转载地址:https://blog.csdn.net/weixin_34326429/article/details/90162123 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!
发表评论
最新留言
网站不错 人气很旺了 加油
[***.192.178.218]2024年02月28日 15时17分11秒
关于作者
喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!
推荐文章
数兔子
2019-04-21
python宽度_在Python中对齐框架宽度
2019-04-21
复制关联表mysql_mysql关联表的复制
2019-04-21
java mysql 表关系分析_数据库表的关系
2019-04-21
c语言 变量 函数命名 风格_C语言static变量和函数
2019-04-21
mysql男女字段应该建立索引吗_那些字段适不适合建索引?
2019-04-21
安装mysql最后一步密码_MySQL安装最后一步无响应解决方法
2019-04-21
mysql modify语句格式_40条MySQL数据库语句格式
2019-04-21
mysql忽略大小写jpa解决_JPA 大小写敏感问题
2019-04-21
MySQL5.7 固态盘性能设置_MySQL 5.7 安装完成后,立即要调整的性能选项
2019-04-21
mysql.net 环境配置_windows环境下下安装配置mysql5.7.24
2019-04-21
servlet对象是在服务器端还是在客户端被创建?_Servlet编程之会话管理
2019-04-21
webpack卸载_webpack的安装
2019-04-21
mysql主库线程_MySQL 主从扩展--主库的线程状态
2019-04-21