|
{ 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文件开头替换成 |
|
|
来自： aaie_ > 《webbrowser》
