DELPHI 中让嵌入窗体的 WebBrowser 控件无边框


本文整理自网络,侵删。

 需要用到 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 如何解决在dll的入口函数中创建或结束线程时卡死

Delphi隐藏桌面图片和显示桌面图标

减小Delphi xe5编译出来的程序体积

Delphi2010读取mysql数据库text类型乱码的解决方案

Delphi andorid应用程序检查wifi有效还是无效

Delphi xe7开发的直接以管理员模式启动cmd命令行界面

Delphi 获取路径分隔符

isnumeric 判断字符串是否为数字

Delphi:out参数和var参数的区别

Delphi 不重启不注销不关explorer刷新注册表

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...