Cuestión : cambiar la función

hola los expertos, quiero cambiar debajo de la función del acoplamiento del tecleo, acoplamiento del tecleo del
when que no quiero abierto una nueva ventana (_blank), abriéndose solamente poseo la ventana (_self). ¿cambio de la ayuda del
anyone debajo de la función o de sugerir otra función?
class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 (WB " del class= " del id= " codeSnippet836359 del
class= del

Respuesta : cambiar la función

Hola Gsamuk. Mirar aquí:

función WB_ClickLink (WB: TWebbrowser; const LinkText: secuencia): Boleano;
var
  HTMLDocument2: IHTMLDocument2;
  acoplamientos: IHTMLElementCollection;
  Elemento: IHTMLElement;
  href: OleVariant;
  I: Número entero;
comenzar
  HTMLDocument2: = WB.Document como IHTMLDocument2;
  acoplamientos: = HTMLDocument2.Links;
  para I: = 0 a los acoplamientos. Longitud - 1 hace
  comenzar
    Elemento: = HTMLDocument2.Links.Item (I, 0) como IHTMLElement;
    si AnsiContainsStr (Element.innerText, LinkText) o AnsiContainsStr (Element.getAttribute (“href”, 0), LinkText) entonces
    comenzar
      si AnsiContainsStr (Element.getAttribute (“blanco”, 0), “_blank ") entonces
        WB.Navigate (Element.getAttribute (“href”, 0))
     
        Element.Click;
      Resultado: = verdad;
      Rotura;
    extremo;
  extremo;
  Resultado: = falso;
extremo;
Otras soluciones  
 
programming4us programming4us