Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > WebBrowser

Автор: Bounty 14.12.2005, 16:46

Помогите избавиться от рамки вокруг WebBrowser

Автор: Rennigth 14.12.2005, 17:11

Bounty
попробуй:

Код


procedure TBrowser.WBDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  lDoc: IHTMLDocument2;
  lElement: IHTMLElement;
begin
  lDoc := IHTMLDocument2(TWebBrowser(Sender).Document);
  if Assigned(lDoc) then
  begin
    lElement := lDoc.Body;
    if Assigned(lElement) then
      lElement.Style.BorderStyle := 'none';
  end;
end;