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 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!

上一篇:Windows 7远程桌面 重启 关机 任务管理器 命令
下一篇:通过shell脚本定位性能sql和生成报告

发表评论

最新留言

网站不错 人气很旺了 加油
[***.192.178.218]2024年02月28日 15时17分11秒

关于作者

    喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!

推荐文章