掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
十字型のマウスポインターを表示するには？ (ID：35454)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
２カ所修正と追記です。 Message.Result := 0; の場所は、if 〜 thenの中の方がよかったかも。 TShapeではエラーが起きませんでしたが、TEditを配置したらエラーになりました。 追記として、ほかのコントロールがあった場合にも、それらのコントロールの上を通過するときWM_MOUSEMOVEがForm1に渡されないので同じようにする必要があります。 OldWndProc3 := Edit1.WindowProc; Edit1.WindowProc := Edit1WndProc; としておき、 procedure TForm1.Edit1WndProc(var Message: TMessage); begin OldWndProc3(Message); if Message.Msg = WM_MOUSEMOVE then begin Message.Result := 0; RedirectMouseMove(Edit1, Message); end; end; でOK。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.