掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスホイールによるDBコントロール動作をさせないようにしたい (ID:12691)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません。多少進展がありました。 いろいろ参考に用いたコードがあるのですが、以下のようなコードを記述しました。 ・Formに以下を宣言 GridProc: TWndMethod; procedure GridHandler(var Msg: TMessage); ・プロシージャを実装 procedure TForm1.GridHandler(var Msg: TMessage); begin if (Msg.Msg = WM_MOUSEWHEEL) and (Msg.Msg = WM_VSCROLL) then begin Msg.Result := 0; end else begin GridProc(Msg); end; end; ・FormCreateイベント GridProc := DBGrid1.WindowProc; DBGrid1.WindowProc := GridHandler; 以上3点の追加によって、DBGrid達をホイール未対応に変更できました。 これで恐らく当初の目的は達成できると思うのですが、場面場面で使用可・使用不可に切り替える方法がわかりません。 最終的には procedure WhellEnable(DBGrid:TDBGrid;Wheel:Boolean); くらいのプロシージャにして、切り替えられるようにしたいと思うのですが、いかがなものでしょうか。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.