掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TUIWebBrowserでOnMouseMoveイベント (ID:12396)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
https://www.petitmonte.com/bbs/answers?question_id=381 ここのページのおかげで解決しそうだったんですが。。。 とりあえず上記コンポーネント内の宣言を消して、 アプリに下記コードを追加してみたのですが。。。 private OldWndProc: TWndMethod; procedure ActiveBrowserWindowMessage(var Msg: TMessage); procedure TForm1.FormCreate(Sender: TObject); begin OldWndProc := UIWebBrowser.WindowProc; UIWebBrowser.WindowProc := ActiveBrowserWindowMessage; end; procedure TForm1.ActiveBrowserWindowMessage(var Msg: TMessage); begin if Msg.WParam = WM_RBUTTONDOWN then begin URLEdit.Text := 'マウスダウン！'; end else begin if Msg.WParam = WM_MOUSEMOVE then begin URLEdit.Text := 'マウスムーブ！'; end else begin if Msg.WParam = WM_RBUTTONUP then begin URLEdit.Text := 'マウスアップ！'; end else OldWndProc(Msg); { デフォルトの処理 } end; end; end; これだと、マウスダウン！ はURLEdit.Textに表示されるのですが、 その後マウスアップ！が表示してくれません。 マウスムーブ！も表示されません。 メッセージの取得がうまくないと思うのですが、どう記述していいかわかりません。 すいませんが、よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.