Delphi webbrowser 去除边框求解,别复制,若复制记得带上自己的讲解,百度那个没看懂
3个回答
展开全部
webbrowser用于凯空显示网页的一个控件,拖放在窗体盯碰瞎吵猜上
本来它就没有边框,何需去除????
DELPHI2010下亲测过
本来它就没有边框,何需去除????
DELPHI2010下亲测过
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-03-27
展开全部
自带的webbrowser控件是不可以槐烂告去掉边框的,只能写代码去扩历姿展,下面是我在网上找到的代码,有精力就去研究下,想省事的话直接找一下第三方控件EmbeddedWB,这个控件有边框属性的设置。
完全解决之道是继承IDocHostUIHandler接口,该接口中有一个
function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;
继承接口,实现这个函数就可以将滚动条完全屏蔽掉
函数中的TDOCHOSTUIINFO参数铅明,就是用来指定样式的
具体的,楼主查查资料
这里给一段,我以前扩展WebBrowser的时候的一段代码
Delphi(Pascal) code
function TSimpleWebBrowser.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;begin //传递给MSHTML用于描述浏览器的样式等 pInfo.cbSize := SizeOf(pInfo); pInfo.dwFlags := 0; if not ShowScrollBar then //不显示浏览器的滚动条 pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_SCROLL_NO; if FlatScrollBars then //平面类型的滚动条显示 pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_FLAT_SCROLLBAR; if not Border3DStyle then //不显示3D边框 pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_NO3DBORDER; pInfo.dwFlags := Pinfo.dwFlags or DOCHOSTUIFLAG_ENABLE_ACTIVEX_INACTIVATE_MODE; result := S_OK; //覆盖系统本身的处理end;
完全解决之道是继承IDocHostUIHandler接口,该接口中有一个
function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;
继承接口,实现这个函数就可以将滚动条完全屏蔽掉
函数中的TDOCHOSTUIINFO参数铅明,就是用来指定样式的
具体的,楼主查查资料
这里给一段,我以前扩展WebBrowser的时候的一段代码
Delphi(Pascal) code
function TSimpleWebBrowser.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;begin //传递给MSHTML用于描述浏览器的样式等 pInfo.cbSize := SizeOf(pInfo); pInfo.dwFlags := 0; if not ShowScrollBar then //不显示浏览器的滚动条 pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_SCROLL_NO; if FlatScrollBars then //平面类型的滚动条显示 pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_FLAT_SCROLLBAR; if not Border3DStyle then //不显示3D边框 pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_NO3DBORDER; pInfo.dwFlags := Pinfo.dwFlags or DOCHOSTUIFLAG_ENABLE_ACTIVEX_INACTIVATE_MODE; result := S_OK; //覆盖系统本身的处理end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-03-27
展开全部
把"差袜webbrowser.Align" 属性设成 "alClient" 选中该控件在左举庆仿则属性编正纤辑栏最上方。也可以在from.create事件里加入 webbrowser.Align:='alClient';
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询