Delphi中WebBrowser去除3D边框

操作方式是:

DocuMentComplate是运行如下命令:

  1. ((AppHtml.Document as IHTMLDocument2).body as HTMLBody).scroll := 'no';  
  2. (AppHtml.Document as IHTMLDocument2).body.style.border := '0';  
  3. (AppHtml.Document as IHTMLDocument2).body.style.borderStyle := 'none';  
  4. (AppHtml.Document as IHTMLDocument2).body.style.margin := '0';  
  5. (AppHtml.Document as IHTMLDocument2).body.style.padding := '0';  
  6. (AppHtml.Document as IHTMLDocument2).body.style.overflow := 'hidden';  

部分网页由于CCS中有指定参数,可能无法修正。


必须 uses mshtml,AppHtml是我的WebBrowser控件名称

发表回复

登录... 后才能评论