Вопрос : измените функцию

hi специалисты, я хочу изменить под функцией соединения щелчка, соединением щелчка when я не хочу открыто новое окно (_blank), только раскрывая имею окно (_self). изменение помощи
anyone под функцией или предлагать другую функцию?
class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:

>function WB_ClickLink " class= " id= " codeSnippet836359

class=

Ответ : измените функцию

Hi Gsamuk. Посмотрите здесь:

функция WB_ClickLink (WB: TWebbrowser; const LinkText: шнур): Булевско;
var
  HTMLDocument2: IHTMLDocument2;
  соединения: IHTMLElementCollection;
  Элемент: IHTMLElement;
  href: OleVariant;
  Iий: Интежер;
начните
  HTMLDocument2: = WB.Document как IHTMLDocument2;
  соединения: = HTMLDocument2.Links;
  для I: = 0 к соединениям. Длина - 1 делает
  начните
    Элемент: = HTMLDocument2.Links.Item (I, 0) как IHTMLElement;
    если AnsiContainsStr (Element.innerText, LinkText) или AnsiContainsStr (Element.getAttribute («href», 0), LinkText) после этого
    начните
      если AnsiContainsStr (Element.getAttribute («цель», 0), «_blank ") после этого
        WB.Navigate (Element.getAttribute («href», 0))
      еще
        Element.Click;
      Результат: = True;
      Пролом;
    конец;
  конец;
  Результат: = ложно;
конец;