何のスクロールバーデルファイ埋め込まれたWebブラウザーノーボーダーを聞かせていません

コード

{  WB_Set3DBorderStyle  } 手順 WB_Set3DBorderStyle（送信者：TWebBrowser; bValue：ブール値）; VaRの  ドキュメント：IHTMLDocument2。  要素：IHTMLElement。  StrBorderStyle：  文字列; 開始// 边框去掉てみ    文書を：=  TWebBrowser（送信者）.Document  として IHTMLDocument2。場合 （文書）を割り当て  、その後始まる      要素を：=  Document.Body。場合 要素  <> nilが、その後始まるケースを BValue  の







  
  

    
    

          
      
        
          偽：StrBorderStyle： = ' なし' ;           真：StrBorderStyle：= '' ; エンド;         Element.Style.BorderStyle：=  StrBorderStyle。エンド; エンド;    // 去掉滚动条      Sender.OleObject.Document.Body.Scroll：= ' なし'ありません。除く// .. 終了。エンド;  
 
        

      
    
 
  
    
  

 

この関数は唯一のTWebBrowserは、ページファイルを読み込む終了したら、それを呼び出します。

そして、htmlファイルの先頭には、置き換える
<DOCTYPE HTML PUBLICを！ " - // W3C // DTD HTML 4.01移行// EN">

ます。https：//www.cnblogs.com/rogee/archive/2010/09/20/1832037.htmlで再現