TWebBrowser控件问题

Question

使用TWebBrowser的时候怎么能去掉边框呢有边框太难看了

Answer 1

  uses     
      MSHTML;     
    
  procedure   WB_Set3DBorderStyle(Sender:   TObject;   bValue:   Boolean);   
  var   
      Document   :   IHTMLDocument2;   
      Element   :   IHTMLElement;   
      StrBorderStyle:   string;   
  begin   
      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;   
  end;   
    
  procedure   TForm1.WebBrowser1NavigateComplete2(Sender:   TObject;   
      const   pDisp:   IDispatch;   var   URL:   OleVariant);   
  begin   
      WB_Set3DBorderStyle(Sender,   False);   
  end;
试一下这个能不能去除边框改属性不会，等LSS的高手回答