Pytanie : zmiana funkcja

cześć ekspert, i chcieć pod stuknięcie połączenie funkcja,
when stuknięcie połączenie i chcieć otwarty nowy okno (_blank), tylko posiadać okno (_self).
anyone pomoc zmiana pod funkcja lub proponowanie jakaś inny funkcja? 
(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: sznurek): Boolowski;
var
  HTMLDocument2: IHTMLDocument2;
  połączenie: IHTMLElementCollection;
  Element: IHTMLElement;
  href: OleVariant;
  I: Integer;
zaczynać
  HTMLDocument2: = WB.Document jako IHTMLDocument2;
  połączenie: = HTMLDocument2.Links;
  dla I: = (0) połączenie. Długość - (1)
  zaczynać
    Element: = HTMLDocument2.Links.Item (I, (0)) jako IHTMLElement;
    jeżeli AnsiContainsStr (Element.innerText, LinkText) lub AnsiContainsStr (Element.getAttribute ("href", (0)), LinkText) wtedy
    zaczynać
      Element.Click;
      Rezultat: = Prawdziwy;
      Przerwa;
    końcówka;
  końcówka;
  Rezultat: = Fałszywy;
końcówka;

Odpowiedź : zmiana funkcja

Cześć Gsamuk. Spojrzenie tutaj:

funkcja WB_ClickLink (WB: TWebbrowser; const LinkText: sznurek): Boolowski;
var
  HTMLDocument2: IHTMLDocument2;
  połączenie: IHTMLElementCollection;
  Element: IHTMLElement;
  href: OleVariant;
  I: Integer;
zaczynać
  HTMLDocument2: = WB.Document jako IHTMLDocument2;
  połączenie: = HTMLDocument2.Links;
  dla I: = (0) połączenie. Długość - (1)
  zaczynać
    Element: = HTMLDocument2.Links.Item (I, (0)) jako IHTMLElement;
    jeżeli AnsiContainsStr (Element.innerText, LinkText) lub AnsiContainsStr (Element.getAttribute ("href", (0)), LinkText) wtedy
    zaczynać
      jeżeli AnsiContainsStr (Element.getAttribute ("cel", (0)), "_blank ") wtedy
        WB.Navigate (Element.getAttribute ("href", (0)))
      inny
        Element.Click;
      Rezultat: = Prawdziwy;
      Przerwa;
    końcówka;
  końcówka;
  Rezultat: = Fałszywy;
końcówka;
Inne rozwiązania  
 
programming4us programming4us