Как сделать WebBrowser плоским вместо 3D? |
Previous Top Next |
Взято из FAQ:http://blackman.km.ru/myfaq/cont4.phtml
Перевод материала с сайта members.home.com/hfournier/webbrowser.htm
Следующий пример устанавливает borderStyle:
Code: |
procedure TForm1.WBDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var Doc : IHTMLDocument2; Element : IHTMLElement; begin Doc := IHTMLDocument2(TWebBrowser(Sender).Document); if Doc = nil then Exit; Element := Doc.body; if Element = nil then Exit; case Make_Flat of TRUE : Element.style.borderStyle := 'none'; FALSE : Element.style.borderStyle := ''; end; end; |
Автор: Donovan J. Edye
©Drkb::03456