[TWebbrowser] JavaScript Link ausführen

[TonyR]

Nunja, ich hab es jetzt mal so gelöst, funktioniert auch ...

Delphi-Quellcode:

function WB_ClickLink(Web: TWebbrowser; Link: string): boolean;
var
  i: Integer;
  s: string;
begin
Result:=false;
  for i := 0 to Web.OleObject.Document.links.Length - 1 do //durchsucht alle Links der site
    begin
    s:= Web.OleObject.Document.Links.Item(i);
    if s=Link then
      begin
      Web.OleObject.Document.Links.Item(i).click; //und hier wird bei Übereinstimmung geklickt
      Result:=true;
      end;
    end;
end;

Als Link kann demzufolge auch eine Javascript-Anweisung angegeben werden

Edit: Sehr Hilfreich waren dabei die Schweizer: http://www.swissdelphicenter.ch/de/showcode.php?id=479