Как сделать WebBrowser плоским вместо 3D

Следующий пример устанавливает borderStyle:

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
;

Другое по теме:

• Очистка кэша в IE
• WEB страничка внутри Delphi приложения
• Автоматическое заполнение HTML-форм в браузере