让delphi嵌入的WebBrowser无边框无滚动条

代码

{ 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;    //去掉滚动条
      Sender.OleObject.Document.Body.Scroll := 'no';
  except
    //..
  end;
end;

这个函数只需要 TWebBrowser 装载完网页文件时，调用一下。

然后将html文件开头替换成
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

posted on 2010-09-20 20:49 °ι 、曲终阅读(1730) 评论(0) 收藏举报