Frage : Funktion ändern

hallo Experten, ich möchte unterhalb der Klickenverbindungsfunktion,
when ändern Klickenverbindung, die ich nicht geöffnet ein neues Fenster (_blank) wünsche und nur mich öffne, besitze Fenster (_self).
anyone Hilfenänderung unter Funktion oder dem Vorschlagen irgendeiner anderen Funktion? 
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 (WB: TWebbrowser; const LinkText: Schnur): Boolesch;
var
  HTMLDocument2: IHTMLDocument2;
  Verbindungen: IHTMLElementCollection;
  Element: IHTMLElement;
  href: OleVariant;
  I: Ganze Zahl;
anfangen
  HTMLDocument2: = WB.Document als IHTMLDocument2;
  Verbindungen: = HTMLDocument2.Links;
  für I: = 0 zu den Verbindungen. Länge - 1 tun
  anfangen
    Element: = HTMLDocument2.Links.Item (I, 0) als IHTMLElement;
    wenn AnsiContainsStr (Element.innerText, LinkText) oder AnsiContainsStr (Element.getAttribute („href“, 0), LinkText) dann
    anfangen
      Element.Click;
      Resultat: = ausrichten;
      Bruch;
    Ende;
  Ende;
  Resultat: = falsch;
Ende;

Antwort : Funktion ändern

Hallo Gsamuk. Hier schauen:

Funktion WB_ClickLink (WB: TWebbrowser; const LinkText: Schnur): Boolesch;
var
  HTMLDocument2: IHTMLDocument2;
  Verbindungen: IHTMLElementCollection;
  Element: IHTMLElement;
  href: OleVariant;
  I: Ganze Zahl;
anfangen
  HTMLDocument2: = WB.Document als IHTMLDocument2;
  Verbindungen: = HTMLDocument2.Links;
  für I: = 0 zu den Verbindungen. Länge - 1 tun
  anfangen
    Element: = HTMLDocument2.Links.Item (I, 0) als IHTMLElement;
    wenn AnsiContainsStr (Element.innerText, LinkText) oder AnsiContainsStr (Element.getAttribute („href“, 0), LinkText) dann
    anfangen
      wenn AnsiContainsStr (Element.getAttribute („Ziel“, 0), „_blank ") dann
        WB.Navigate (Element.getAttribute („href“, 0))
      sonst
        Element.Click;
      Resultat: = ausrichten;
      Bruch;
    Ende;
  Ende;
  Resultat: = falsch;
Ende;
Weitere Lösungen  
 
programming4us programming4us