Question : changer la fonction

salut des experts, je veux changer au-dessous de la fonction de lien de clic, lien de clic du
when que je ne veux pas ouvert une nouvelle fenêtre (_blank), s'ouvrant seulement possède la fenêtre (_self). changement d'aide du
anyone au-dessous de fonction ou de suggérer une autre fonction ?
class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

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

>function " de l'id= " codeSnippet836359 de

class= de

Réponse : changer la fonction

Salut Gsamuk. Regarder ici :

fonction WB_ClickLink (WB : TWebbrowser ; const LinkText : corde) : Booléen ;
variété
  HTMLDocument2 : IHTMLDocument2 ;
  liens : IHTMLElementCollection ;
  Élément : IHTMLElement ;
  href : OleVariant ;
  I : Nombre entier ;
commencer
  HTMLDocument2 : = WB.Document comme IHTMLDocument2 ;
  liens : = HTMLDocument2.Links ;
  pour I : = 0 aux liens. Longueur - 1 font
  commencer
    Élément : = HTMLDocument2.Links.Item (I, 0) comme IHTMLElement ;
    si AnsiContainsStr (Element.innerText, LinkText) ou AnsiContainsStr (Element.getAttribute (« href », 0), LinkText) puis
    commencer
      si AnsiContainsStr (Element.getAttribute (« cible », 0), « _blank ") puis
        WB.Navigate (Element.getAttribute (« href », 0))
      autrement
        Element.Click ;
      Résultat : = rectifier ;
      Coupure ;
    extrémité ;
  extrémité ;
  Résultat : = faux ;
extrémité ;