掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム上でのマウス動作を監視するには (ID：6920)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
にしのさん、ありがとうございます。 にしのさんに頂いたアドバイスと過去ログから、以下のように作成しました。 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var AMouse: TMouse; APos : TPoint; begin if Msg.message = WM_MOUSEMOVE then begin AMouse := TMouse.Create; APos := AMouse.CursorPos; APos := ScreenToClient(APos); Label1.Caption := IntToStr(APos.X) + ', ' + IntToStr(APos.Y); end; end; Enter/Leaveは、過去ログにありましたように CM_MouseEnterで タイマを起動し、PtInRect()を使用して Leaveを判別するようにしました。 これでやりたいことは実現できたのですが、すみません、もう１つだけ 教えて頂けませんでしょうか。 >OnMessageイベントは、たくさんのメッセージが飛んでくるので、 >扱いには注意です。 とのことですが、具体的にどのような点について注意する必要が あるのでしょうか。 すみませんが、よろしくお願いいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.