开发者社区人工智能文章正文

Delphi Dbgrid滚轮问题解决

2017-08-27 885

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

 
 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
 .