TWebBrowser Klick in Frame simulieren

[Zacherl]

Okay habs rausgefunden:

Delphi-Quellcode:

var
  HTMLDocument2: IHTMLDocument2;
  Element: IHTMLElement;
  I: Integer;
  FrameIndex: OleVariant;
  FrameDispatch: IDispatch;
begin
  HTMLDocument2 := WebBrowser.Document as IHTMLDocument2;
  FrameIndex := 0;
  FrameDispatch := HTMLDocument2.Frames.Item(FrameIndex);
  HTMLDocument2 := (FrameDispatch as IHTMLWindow2).Document;
  for I := 0 to HTMLDocument2.Links.Length - 1 do
  begin
    Element := HTMLDocument2.Links.Item(I, 0) as IHTMLElement;
    if Masks.MatchesMask(Element.innerText, LinkText) then
    begin
      Result := True;
      Element.Click;
      Exit;
    end;
  end;
  Result := False;
end;