Delphi - база знаний


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


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



Взято из FAQ:
Перевод материала с сайта members.home.com/hfournier/webbrowser.htm
 
Следующий пример устанавливает 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;


Автор: Donovan J. Edye




Начало  Назад  Вперед