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

名前

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

本文 抜けていました、動いているものから抜くと忘れますね。 ここ最近、他言語(PHP)でのクラスに燃えていて、いろんなclassが頭で混ざってました。 失礼しました．．m(__)m．．申し訳ないので、再度下記にまとめました。 type TForm1 = class(TForm) 〜中略〜 private { Private 宣言 } procedure GridMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); 〜中略〜 end; // カスタム用DBGridの宣言 TXDBGrid = Class(TDBGrid) 〜必要に応じてプロパティ等設定〜 end; procedure TForm1.GridMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin with Sender as TDBGrid do begin if not DataSource1.DataSet.Active then Exit; if WheelDelta < 0 then begin // down DataSource1.DataSet.Next ; end else begin // up DataSource1.DataSet.Prior; end; end; Handled := true; end; procedure TForm1.FormCreate(Sender: TObject); begin TXDBGrid(DBGrid1).OnMouseWheel := GridMouseWheel; 〜中略〜 end;