WM_LBUTTONUP 未在 WebBrowser WndProc 中收到

Question

我已经重写了 TWebBrowser 的 WndProc 以捕获鼠标点击，如下所示（快速示例）：

procedure TWebBrowser.WndProc(var AMsg: TMessage);
begin
with AMsg do
  begin
   case WParam of
     WM_LBUTTONDOWN: Text := "DOWN";
     WM_LBUTTONUP:   Text := "UP";
  end;
end;

WM_LBUTTONDOWN 正在发生并且工作正常。但是有些东西吃掉了 WM_LBUTTONUP 消息并且它永远不会发生。右键和中键也是一样。

知道为什么没有 BUTTONUP 消息吗？

Answer 1

我最终放弃了上面的WndProc方法，通过下沉onmousedown和onmouseup事件解决了问题，这也给了对过程更多的控制和也允许比上面更多的事件，这个 link:

中描述的方法

https://www.thoughtco.com/url-hyperlink-twebbrowser-document-1058415

还可以在此处找到其他信息：

IHTMLDocument2 and Internet Explorer 11 changes on Windows 7

WM_LBUTTONUP 未在 WebBrowser WndProc 中收到

WM_LBUTTONUP not received in WebBrowser WndProc

delphi

c++builder

webbrowser-control

twebbrowser