Question

delphi嵌套一个webbrowser 如何去掉它的边框

Answer 1

//去除边框，滚动条
procedure WB_Set3DBorderStyle(Sender: TObject; bValue: Boolean);
var
Document : IHTMLDocument2;
Element : IHTMLElement;
StrBorderStyle: string;
begintry
Document := TWebBrowser(Sender).Document as IHTMLDocument2;
TWebBrowser(Sender).OleObject.Document.Body.Scroll := 'no';//去除滚动条
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;