掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスの中央のボタンのイベントを取得するには？ (ID:15777)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TPaintBoxを継承したコンポーネント内でprocedure WMMousewheel(var Msg: TMessage); message WM_MOUSEWHEEL宣言し使用しています。 これをＦorm1に貼り付けてマウスの中央のボタンのイベントを拾っていす。 しかし、 下記のように書いただけでは基準点がモニターの左上になる？のでTPaintBoxの領域内でイベントを拾うことができない領域が発生したり、 TPaintBoxの領域外でイベントを取得したりします。 イベントをTPaintBoxの領域内のすべての位置で取得し、領域外では取得しないようにするにはどう書けばいいのでしょうか？ TMyPaintBox = class(TPaintBox) private ////マウススクロール procedure WMMousewheel(var Msg: TMessage); message WM_MOUSEWHEEL; procedure TMyPaintBox.WMMousewheel(var Msg: TMessage); begin if (Msg.WParam > 0) then begin // ホイールを奥に動かした時の処理 MessageBeep(MB_ICONINFORMATION); end else begin // ホイールを手前に動かした時の処理 MessageBeep(MB_OK); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.