掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGridでスクロールしたときに (ID:5614)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
手元にこんなのがありました。 TApplicationEventsのOnMessageで procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin with Msg do begin case Message of WM_MOUSEWHEEL:begin Message := WM_KEYDOWN; lParam := 0; if SmallInt(HiWord(wParam))>0 then wParam := VK_UP else wParam := VK_DOWN; Handled := False; end; end; end; end; どこかに掲載されていたものだと思いますが、忘れました。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.