在Delphi中使用
Webbrowser加载百度地图时,点击了其它界面,再回到百度地图中,即使点击了鼠标,再用滚轮也不能缩放地图,除非点地图里面的自带的控件,之后才能缩放,
原因是因为其它窗体控件获得焦点后没还回给Webbrowser.
目前的解决办法是在窗体上拖一个ApplicationEvents,在他的OnMessage事件中写入如下代码
if IsChild(WebBrowser1.Handle, Msg.Hwnd) then begin if ((Msg.Message = WM_LBUTTONDOWN) or (Msg.Message = WM_LBUTTONUP)) then begin Webbrowser1.SetFocus;
end;
end;
procedure SetFocusToDoc(Webbrowser:TWebBrowser);begin
if Webbrowser.Document <> nil then begin if IHTMLDocument2(WebBrowser1.Document).activeElement<>IHTMLDocument2(WebBrowser1.Document).body then begin with Webbrowser.Application as IOleobject do DoVerb(OLEIVERB_UIACTIVATE, nil, Webbrowser, 0, Handle, GetClientRect); end; end;
// if Webbrowser.Document <> nil then// begin// with Webbrowser.Application as IOleobject do //引用ActivitX// DoVerb(OLEIVERB_UIACTIVATE, nil, Webbrowser, 0, Handle, GetClientRect);// end;
// if WebBrowser1.Document <> nil then// begin// if not IHTMLDocument4(WebBrowser1.Document).hasFocus then //引用MSHTML单元// IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus;// end;// if WebBrowser1.Document <> nil then// begin// if not IHTMLDocument4(WebBrowser1.Document).hasFocus then// IHTMLDocument4(WebBrowser1.Document).focus;// end;end;
版权声明：本文为博主原创文章，未经博主允许不得转载。
，坚守自己的原则，世界上的诱-惑很多，
