Pergunta : mudar a função

olá! peritos, eu quero mudar abaixo da função da ligação do clique, ligação que do clique do
when eu não quero aberto uma janela nova (_blank), abrindo somente possuo a janela (_self). mudança da ajuda do
anyone abaixo da função ou de sugerir alguma outra função?
class= > " desobstruído " do

> do " codeSnippet " do class= do

class= " lineNumbers " do

class= do

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

>function notpretty WB_ClickLink " do class= " do id= " codeSnippet836359 do

class= do

Resposta : mudar a função

Olá! Gsamuk. Olhar aqui:

função WB_ClickLink (WB: TWebbrowser; const LinkText: corda): Bôoleano;
var
  HTMLDocument2: IHTMLDocument2;
  ligações: IHTMLElementCollection;
  Elemento: IHTMLElement;
  href: OleVariant;
  I: Inteiro;
começar
  HTMLDocument2: = WB.Document como IHTMLDocument2;
  ligações: = HTMLDocument2.Links;
  para I: = 0 às ligações. Comprimento - 1 faz
  começar
    Elemento: = HTMLDocument2.Links.Item (I, 0) como IHTMLElement;
    se AnsiContainsStr (Element.innerText, LinkText) ou AnsiContainsStr (Element.getAttribute (“href”, 0), LinkText) então
    começar
      se AnsiContainsStr (Element.getAttribute (“alvo”, 0), “_blank ") então
        WB.Navigate (Element.getAttribute (“href”, 0))
      mais
        Element.Click;
      Resultado: = retificar;
      Ruptura;
    extremidade;
  extremidade;
  Resultado: = falso;
extremidade;