掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コントロール上にあるときのみホイールマウスをアクティブにするには？ (ID:20061)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
マウスカーソルが、例えばStringGrid1上にあると、フォーカスがなくてもホイールスクロールする。 procedure MouseWheelHandler(var Message: TMessage); override; procedure TForm1.MouseWheelHandler(var Message: TMessage); var curPos: TPoint; curCtrl: TControl; begin GetCursorPos(curPos); curCtrl := FindDragTarget(curPos, True); if (curCtrl <> nil) and (curCtrl = StringGrid1) then begin StringGrid1.Perform(CM_MOUSEWHEEL, Message.WParam, Message.LParam); end else begin inherited MouseWheelHandler(Message); end; end; なんか不思議な動作だ・・・。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.