Delphi DbGrid 滾輪不正常問題解決

bestlong

參考來源 http://www.cnblogs.com/huangcong/archive/2010/08/22/1805718.html

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7. Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;
   
8. 
   
9. type
   
10. TDBGrid=class(DBGrids.TDBGrid)
    
11.     public
    
12.     function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
    
13.     end;
    
14. 
    
15. TForm1 = class(TForm)
    
16.     DataSource1: TDataSource;
    
17.     DBGrid1: TDBGrid;
    
18.     ADOTable1: TADOTable;
    
19.     Edit1: TEdit;
    
20. private
    
21.     { Private declarations }
    
22. public
    
23.     { Public declarations }
    
24. end;
    
25. 
    
26. var
    
27. Form1: TForm1;
    
28. 
    
29. implementation
    
30. 
    
31. {$R *.dfm}
    
32. function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
    
33.     MousePos: TPoint): Boolean;
    
34. begin
    
35.     if WheelDelta < 0 then
    
36.     datasource.DataSet.Next;
    
37.     if wheelDelta > 0 then
    
38.     DataSource.DataSet.Prior;
    
39. end;
    
40. 
    
41. end.

複製代碼