名前
題名
▼ Mr.XRAYさん > ▼ たてぐやさん > > 「勝てば官軍，動けば正義」です．ただ， > > > 　ListviewだとRtIntRectが使えないので、下記のようにしました。ちょっと > > PtInRectは確か，TWinControlで使用可能なハズなのですが． > スクロールメッセージは，EM_XXXXはTMemo関係なので，これとは別に > 一般的なメッセージを使って，こんな感じでいくと思うのですが.... > 後でテストしてみます． > > var > APos : TPoint; > RectListView : TRect; > begin > GetCursorPos(APos); > GetWindowRect(ListView1.Handle, RectListView); > > if PtInRect(RectListView, APos) then begin > if WheelDelta > 0 then begin > ListView1.Perform(WM_VSCROLL, SB_LINEUP,0); > end else begin > ListView1.Perform(WM_VSCROLL, SB_LINEDOWN,0); > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link