怎样判断鼠标是否在twebbrowser里面？？？？？

Question

怎样判断鼠标是否在twebbrowser里面？？？？？twebbrowser没有mousemove事件，该怎么判断？

Answer 1

我看了一下msdn里面写的，但是没有看懂http://msdn2.microsoft.com/zh-cn/library/system.windows.forms.webbrowserbase.mousemove(VS.80).aspx大家帮忙看看

Answer 2

这个是支持.net的，Delphi里没有这个。

Answer 3

窗体上放一个TApplicationEvents控件,填写OnMessage事件代码如下:procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  vHandle: THandle;
begin
  if Msg.message <> WM_MOUSEMOVE then Exit;
  vHandle := Msg.hwnd;
  while (vHandle <> 0) and (vHandle <> WebBrowser1.Handle) do
    vHandle := GetParent(vHandle);
  if vHandle = WebBrowser1.Handle then
    Caption := Format('%d,X:%d,Y:%d', [
      GetTickCount, LOWORD(Msg.lParam), HIWORD(Msg.lParam)]);
end;