如何实现DBgrid 记录随鼠标滚轮定位上下移动？

Question

 如何实现：当DBgrid 获得焦点时，滚动鼠标的轮子，dBgrid 中的记录定位也上下滚动？

Answer 1

这个问题,上厚度去找答案还快些,一大把不过建议用第三个控件DBGridEh!!

Answer 2

这里有一个:http://topic.csdn.net/u/20080401/03/02ea848e-f979-4289-a09b-c5a327f2e7b8.html

Answer 3

在DBGrid所在的窗体中处理WM_MOUSEWHEEL消息unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, FileDB, Grids, DBGrids;type
  TForm1 = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    FileDataBase1: TFileDataBase;
    FileTable1: TFileTable;
  private
    { Private declarations }
    procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMMouseWheel(var Msg: TWMMouseWheel);
begin
  if DBGrid1.DataSource.DataSet.Active then
  begin
    if Msg.WheelDelta < 0 then
      DBGrid1.DataSource.DataSet.Next
    else
      DBGrid1.DataSource.DataSet.Prior;
  end;
end;end.