如何去掉TWebBrowser的3D边框.docVIP

如何去掉 TWebBrowser的3D边框 想要去掉 TWebBrowser的3D边框，一般网络上查到的答案如下： procedure TMainForm.WebBrowser1DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);var Doc:IHTMLDocument2;begin if(WebBrowser1.ReadyState = READYSTATE_COMPLETE) then begin doc:=IHTMLDocument2(TWebBrowser(Sender).Document); doc.body.style.borderstyle:= none end; end; 很多人对这个答案满意，但是从上列实现代码可以知道，虽然它可以达到隐藏TwebBrowser 3D边框的效果，但是它同时也会对HTML代码进行修改，即body中会出现BORDER-BOTTOM-STYLE: none 之类的代码。 也就是说，上列答案是透过修改HTML代码来达到隐藏3D边框效果，如果你刷新网页后仍然希望保持隐藏3D边框的效果，那你必须不断修改HTML代码。 有的人也许不在乎这点，那上述的答案应该能够令你满意。 如果你像我一样对于它会修改HTML代码非常在意的话，那么，是不是有某种非修改HTML代码的解决办法呢﹖答案当然是肯定的。 一般，我们想去掉 TWinControl 的3D边框，用的语法是 MyWinControl.BorderStyle := bsNone;。这种写法很明显是以在应用程序的源代码中对控件实例进行设置来达到目的，那么要对TwebBrowser的实例进行设置，达到隐藏3D边框的效果要怎么做﹖ 关键点在于实现IDocHostUIHandler接口的GetHostInfo方法。 具体请看以下例子： Const DOCHOSTUIFLAG_NO3DBORDER = type TMyWebBrowser = class(TWebBrowser, IDocHostUIHandler) private F3DBorder: Boolean; protected function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall; end; Implementation function TMyWebBrowser.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;begin pInfo.cbSize := SizeOf(pInfo); pInfo.dwFlags := 0; if not F3DBorder then pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_NO3DBORDER; result := S_OK;end; 当然，上述代码是为了初学者容易理解，省略了一些代码。 稍微有点经验的人都知道，IDocHostUIHandler肯定不会只有GetHostInfo一个方法，像上述代码只实现GetHostInfo方法肯定无法通过编译。 为了通过编译，我们必须实现GetHostInfo的所有方法： Const DOCHOSTUIFLAG_NO3DBORDER = type TMyWebBrowser = class(TWebBrowser, IDocHostUIHandler) private F3DBorder: Boolean; protected function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT; const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT; stdcall; function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall; function ShowUI(const dwID: DWORD; const pActiveObject: IOleInPlaceActiveObject; const pCommandTarget: IOleCommandTarget; const pFrame: IOle