Vraag : veranderings functie

hallo deskundigen, wil ik hieronder veranderen klik verbindingsfunctie, klikt
when verbinding ik open geen nieuw venster (_blank) wil, slechts openend eigen venster (_self).
anyone hulpverandering onder functie of het voorstellen van een andere functie?
" codeBody " 
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: koord): Van Boole;
var
  HTMLDocument2: IHTMLDocument2;
  verbindingen: IHTMLElementCollection;
  Element: IHTMLElement;
  href: OleVariant;
  I: Geheel;
begin
  HTMLDocument2: = WB.Document als IHTMLDocument2;
  verbindingen: = HTMLDocument2.Links;
  voor I: = 0 aan verbindingen. Lengte - 1 
  begin
    Element: = HTMLDocument2.Links.Item (I, 0) als IHTMLElement;
    als AnsiContainsStr (Element.innerText, LinkText) of AnsiContainsStr (Element.getAttribute („href“, 0), LinkText) toen
    begin
      Element.Click;
      Resultaat: = Waar;
      Onderbreking;
    eind;
  eind;
  Resultaat: = Vals;
eind;

Antwoord : veranderings functie

Hallo Gsamuk. Kijk hier:

functie WB_ClickLink (WB: TWebbrowser; const LinkText: koord): Van Boole;
var
  HTMLDocument2: IHTMLDocument2;
  verbindingen: IHTMLElementCollection;
  Element: IHTMLElement;
  href: OleVariant;
  I: Geheel;
begin
  HTMLDocument2: = WB.Document als IHTMLDocument2;
  verbindingen: = HTMLDocument2.Links;
  voor I: = 0 aan verbindingen. Lengte - 1
  begin
    Element: = HTMLDocument2.Links.Item (I, 0) als IHTMLElement;
    als AnsiContainsStr (Element.innerText, LinkText) of AnsiContainsStr (Element.getAttribute („href“, 0), LinkText) toen
    begin
      als AnsiContainsStr (Element.getAttribute („doel“, 0), „_blank“) toen
        WB.Navigate (Element.getAttribute („href“, 0))
      anders
        Element.Click;
      Resultaat: = Waar;
      Onderbreking;
    eind;
  eind;
  Resultaat: = Vals;
eind;
Andere oplossingen  
 
programming4us programming4us