DBGRIDのスクロール (ID:26464)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

私も上のソースを再度貼り付けて試しましたが、問題ないですね。
．．以下その貼り付け文（かなり省略）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs
      〜中略〜
  ,DBGrids, Db, Grids
  ;

type
  TForm1 = class(TForm)
      〜中略〜
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private 宣言 }
    procedure GridMouseWheel(Sender: TObject; Shift: TShiftState;
           WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.GridMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  Q: TPoint;
begin
  with Sender as TDBGrid do begin
    if not DataSource1.DataSet.Active then
      Exit;

GetCursorPos(Q);
    if WheelDelta < 0 then begin     // down
      DataSource1.DataSet.Next ;
      // マウスポインタの表示位置移動
      Q := Point(DBGrid1.Left+50 , DBGrid1.top+DBGrid1.height-40 );
      Q := DBGrid1.ClientToScreen(Q);
    end else begin                   // up
      DataSource1.DataSet.Prior;
      // マウスポインタの表示位置移動
      Q := Point(DBGrid1.Left+50 , DBGrid1.top );
      Q := DBGrid1.ClientToScreen(Q);
    end;
  end;

Handled := true;
end;
〜以下略〜

←解決時は質問者本人がここをチェックしてください。

戻る