名前
題名
▼ Mr.XRAYさん > ▼ たてぐやさん > > というわけで(どういわけだ!?)，こんな感じでしょうか． > スクロールメッセージ関係は，Halbow資料館の以下にあります． > http://mrxray.on.coocan.jp/Halbow/VCL03.html > > //============================================================================= > // マウスカーソルがあるコントロール上でのみスクロールさせるテスト > // ここでは，対象コントロールであるMemoがあるForm1のOnMouseWheelイベントで処理 > // > // Form上にMemo1とMemo2がある場合 > // スクロールメッセージの詳しい内容は以下を参照 > // http://mrxray.on.coocan.jp/Halbow/VCL03.html > //============================================================================= > procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; > WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); > var > APos : TPoint; > RectMemo1 : TRect; > RectMemo2 : TRect; > begin > GetCursorPos(APos); > GetWindowRect(Memo1.Handle, RectMemo1); > GetWindowRect(Memo2.Handle, RectMemo2); > > if PtInRect(RectMemo1, APos) then begin > if WheelDelta > 0 then begin > Memo1.Perform(EM_SCROLL,SB_LINEDOWN,0); > end else begin > Memo1.Perform(EM_SCROLL,SB_LINEUP,0); > end; > end; > > if PtInRect(RectMemo2, APos) then begin > if WheelDelta > 0 then begin > Memo2.Perform(EM_SCROLL,SB_LINEDOWN,0); > end else begin > Memo2.Perform(EM_SCROLL,SB_LINEUP,0); > end; > end; > > //元のスクロールメッセージは処理しない > Handled := True; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link