[poli-smen]

Сообщение от borockov

Меня сейчас посетила одна мысль, а можно ведь пропарсить страницу, и вырезать с помощью функций POS тег

target_blank

А потом этот html опять нужно будет в браузер вгружать. По моему проще тогда просто пройтись по DOM объектам документа и прямо их и исправлять.
Вот попробовал - у меня так работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  col: IHTMLElementCollection;
  a: IHTMLAnchorElement;
  i: Integer;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  col := doc.links;
  for i := 0 to col.length - 1 do
  begin
    a := col.item(i, EmptyParam) as IHTMLAnchorElement;
    a.target := '';
  end;
end;