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 を設定すれば移動しなそうだが