掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGridでホイールスクロールさせたくない (ID:39444)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ここで移動させてるんじゃないか？ function TCustomDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; begin Result := False; if Assigned(OnMouseWheelDown) then OnMouseWheelDown(Self, Shift, MousePos, Result); if (not Result) and (FDataLink.Active) then begin FDataLink.MoveBy(1); Result := True; end; end; function TCustomDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; begin Result := False; if Assigned(OnMouseWheelUp) then OnMouseWheelUp(Self, Shift, MousePos, Result); if (not Result) and (FDataLink.Active) then begin FDataLink.MoveBy(-1); Result := True; end; end; Result を設定すれば移動しなそうだが
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.