怎样去除webbrower的边框?

Question

webbrower的边框默认是3D的，怎样去处边框，改为平面的，请大家帮助...

Answer 1

好像以前有人问过，你找找已结帖子 ________________________欢迎访问和宣传我的论坛http://hthunter.vicp.net/

Answer 2

总算找到了，贴出来，如果有其他兄弟用的着，也算帮了一把。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.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
    WB_Set3DBorderStyle(Sender, False);
end;