[TWebbrowser] JavaScript Link ausführen

[TonyR]

Tut mir leid, dass so eine Frage schon wieder kommt, aber ich konnte nach ausgiebiger Recherche keine Antwort auf mein Problem finden!

Es gibt auf einer Seite (schülerCC falls interessant) einen Hyperlink, den ich gerne "betätigen" würde, also als ob man draufklicken würde.
Nur hat der als Ziel Javascript - Anweisungen,
wie kann ich das bewerkstelligen?

Hier der Code vom Link, der "geklickt" werden soll, er öffnet im Übrigen ein kleines Feld mit einer Texteingabe und einem button.

Code:

[url="javascript:document.message2.button_klasse_pinnwand_erstellen_anzeige.disabled=false;document.message2.button_klasse_pinnwand_erstellen_anzeige.value='Eintrag%20erstellen';flap('id_kp_eintrag')"]Eintrag hinzufügen[/url]

Danke für eure Hilfe

[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

[-187-]

Zitat von TonyR:

Als Link kann demzufolge auch eine Javascript-Anweisung angegeben werden

Hmm kannst du nochmal dein Beispiel des Aufrufs dazu posten ? Danke

[TonyR]

Hallo, wie meinst du das, "Beispiel des Aufrufs" ?
Steht doch darüber in den Posts, wie und mit was ich das damals gemacht hatte?