掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGRIDのスクロール (ID:26460)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これはいかが？ type TForm1 = class(TForm) private { Private 宣言 } procedure GridMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); 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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.