DELPHI 中让嵌入窗体的 WebBrowser 控件无边框(转)
2010-01-15 18:40
501 查看
以下下文字转自: 陆鸟工作室(http://www.cnblogs.com/iinsnian/archive/2008/06/07/1215494.html) 本人为感.
***********************************************************************************
最近写一个程序。需要用到 TWebBrowser 控件。出现了一个问题:WebBrowser 组件在未载入 HTML 之前是无边框的,当载入 HTML 之后,WebBrowser 四周出现了一个三维边框,和程序本身的风格极不协调。经 过测试以后发现,该边框并不是 WebBrowser 产生的,而是 WebBrowser 中载入的 HTML 产生的。后来真接用 CSS 去掉了边框,在网上找到的资料好像也是用这种方法。但是,如果修改每个页面的CSS,好像不是很理想的解决方案。最后自己通过验证,发现以下代码基本上解 决了这个问题。
代码{ WB_Set3DBorderStyle }
procedure WB_Set3DBorderStyle(Sender: TWebBrowser; bValue: Boolean);
var
Document: IHTMLDocument2;
Element: IHTMLElement;
StrBorderStyle: string;
begin
//去掉边框
try
Document := TWebBrowser(Sender).Document as IHTMLDocument2;
if Assigned(Document) then
begin
Element := Document.Body;
if Element <> nil then
begin
case BValue of
False: StrBorderStyle := 'none';
True: StrBorderStyle := '';
end;
Element.Style.BorderStyle := StrBorderStyle;
end;
end;
except
//..
end;
end;
***********************************************************************************
最近写一个程序。需要用到 TWebBrowser 控件。出现了一个问题:WebBrowser 组件在未载入 HTML 之前是无边框的,当载入 HTML 之后,WebBrowser 四周出现了一个三维边框,和程序本身的风格极不协调。经 过测试以后发现,该边框并不是 WebBrowser 产生的,而是 WebBrowser 中载入的 HTML 产生的。后来真接用 CSS 去掉了边框,在网上找到的资料好像也是用这种方法。但是,如果修改每个页面的CSS,好像不是很理想的解决方案。最后自己通过验证,发现以下代码基本上解 决了这个问题。
代码{ WB_Set3DBorderStyle }
procedure WB_Set3DBorderStyle(Sender: TWebBrowser; bValue: Boolean);
var
Document: IHTMLDocument2;
Element: IHTMLElement;
StrBorderStyle: string;
begin
//去掉边框
try
Document := TWebBrowser(Sender).Document as IHTMLDocument2;
if Assigned(Document) then
begin
Element := Document.Body;
if Element <> nil then
begin
case BValue of
False: StrBorderStyle := 'none';
True: StrBorderStyle := '';
end;
Element.Style.BorderStyle := StrBorderStyle;
end;
end;
except
//..
end;
end;
相关文章推荐
- DELPHI 中让嵌入窗体的 WebBrowser 控件无边框
- DELPHI 中让嵌入窗体的 WebBrowser 控件无边框
- 让嵌入窗体的 WebBrowser 控件无边框(转)
- 让嵌入窗体的 WebBrowser 控件无边框
- 让嵌入窗体的 WebBrowser 控件无边框(转)
- 让嵌入窗体的 WebBrowser 控件无边框
- 让嵌入窗体的 WebBrowser 控件无边框 vc/mfc
- Delphi给窗体镶边-为控件加边框,描边,改变边框颜色
- Delphi给窗体镶边-为控件加边框,描边,改变边框颜色
- 让delphi嵌入的WebBrowser无边框无滚动条
- WPF中去边框窗体与WebBrowser控件的兼容问题解决办法
- Delphi 中WebBrowser控件详解实例 转
- winform窗体中调用Webbrowser控件里的JS方法和
- WPF中不规则窗体与WebBrowser控件的兼容问题解决办法 推荐
- Delphi中代替WebBrowser控件的第三方控件
- c#在使用panel容器将无边框窗体作为子窗体的时候点击窗体控件激活窗体的办法
- Delphi中代替WebBrowser控件的第三方控件
- Delphi编写ActiveX控件及程序中嵌入word方案
- Delphi实现无标题有边框的窗体
- Delphi WebBrowser 去除滚动条和边框