|
{ 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;這個函數(shù)只需要 TWebBrowser 裝載完網(wǎng)頁文件時，調(diào)用一下。 然后將html文件開頭替換成 |
|
|
