如何去掉WebBrowser的3D边框

[super_qingchao]

如何去掉WebBrowser的3D边框

[hangguojun]

关注

[pengxuan]

我是这么做的，窗体上放一个Panel，Panel里放一个WebBrowser，设置WebBrowser属性如下：
top:=-2;
height:=panel1.height+4;
left:=-2;
width:=panel1.width+4;
把panel设置成没有边框的，这样就看不到了

[chenxiaohan]

procedure WB_Set3DBorderStyle(Sender: TObject; 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;
except
//..
end;
end;


procedure TFrmWebBrowser.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WB_Set3DBorderStyle(Sender,false);
end;