名前
題名
▼ たてぐやさん > ▼ Mr.XRAYさん > > > PtInRectは確か，TWinControlで使用可能なハズなのですが． > > スクロールメッセージは，EM_XXXXはTMemo関係なので，これとは別に > > 一般的なメッセージを使って，こんな感じでいくと思うのですが.... > > 後でテストしてみます． > > procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState; > WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); > var > APos : TPoint; > CPos : TPoint; > RectMemo1 : TRect; > RectMemo2 : TRect; > Rectlistview1 : TRect; > Rectlistview2 : TRect; > begin > GetCursorPos(APos); > GetWindowRect(Memo1.Handle, RectMemo1); > GetWindowRect(Listview1.Handle, RectMemo2); > > if PtInRect(RectMemo1, APos) then begin > if WheelDelta > 0 then begin > Memo1.Perform(EM_SCROLL,SB_LINEUP,0); > end else begin > Memo1.Perform(EM_SCROLL,SB_LINEDOWN,0); > end; > end; > > GetWindowRect(ListView1.Handle, RectListView1); > if PtInRect(RectListView1, 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; > > GetWindowRect(ListView2.Handle, RectListView2); > if PtInRect(RectListView2, APos) then begin > if WheelDelta > 0 then begin > ListView2.Perform(WM_VSCROLL, SB_LINEUP,0); > end else begin > ListView2.Perform(WM_VSCROLL, SB_LINEDOWN,0); > end; > end; > Handled := true; > > end; > > 　これで思い通りの動作をさせることができました。 > ありがとうございました。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link