Fråga : ändra fungerar

hi experter, jag önskar att ändra nedanfört klickar anknyter fungerar,
when klickar anknyter mig önskar inte öppet ett nytt fönster (_blank), only öppna det egna fönstret (_self). nedanför hjälpändring för
anyone fungerar, eller föreslå någon annat fungera?
> för

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

" codeBody " " >function WB_ClickLink (WB för class= " för " klar "

Svar : ändra fungerar

Hi Gsamuk. Se här:

fungera WB_ClickLink (WB: TWebbrowser; const LinkText: stränga): Boolean;
var
  HTMLDocument2: IHTMLDocument2;
  anknyter: IHTMLElementCollection;
  Beståndsdel: IHTMLElement;
  href: OleVariant;
  I: Heltal;
börja
  HTMLDocument2: = WB.Document som IHTMLDocument2;
  anknyter: = HTMLDocument2.Links;
  för I: = 0 anknyter. Längd - 1 gör
  börja
    Beståndsdel: = HTMLDocument2.Links.Item (I, 0) som IHTMLElement;
    om AnsiContainsStr (Element.innerText, LinkText) eller AnsiContainsStr (Element.getAttribute (”href”, 0), LinkText) därefter
    börja
      om AnsiContainsStr (Element.getAttribute (”uppsätta som mål”, 0), ”_blank”) därefter
        WB.Navigate (Element.getAttribute (”href”, 0))
      annars
        Element.Click;
      Resultat: = True;
      Avbrott;
    avsluta;
  avsluta;
  Resultat: = falskt;
avsluta;