Delphi中WebBrowser去除3D边框
操作方式是:
DocuMentComplate是运行如下命令:
- ((AppHtml.Document as IHTMLDocument2).body as HTMLBody).scroll := 'no';
- (AppHtml.Document as IHTMLDocument2).body.style.border := '0';
- (AppHtml.Document as IHTMLDocument2).body.style.borderStyle := 'none';
- (AppHtml.Document as IHTMLDocument2).body.style.margin := '0';
- (AppHtml.Document as IHTMLDocument2).body.style.padding := '0';
- (AppHtml.Document as IHTMLDocument2).body.style.overflow := 'hidden';
部分网页由于CCS中有指定参数,可能无法修正。
必须 uses mshtml,AppHtml是我的WebBrowser控件名称
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。