Link einer Seite anklicken

[marabu]

Hallo Moyyer,

kann es sein, dass du IFrames und Frames in einen Topf geworfen hast? Damit es dabei keine Probleme gibt musst du den Code in DemoButtonClick so anpassen:

Delphi-Quellcode:

procedure TWebForm.DemoButtonClick(Sender: TObject);
var
  doc: IHTMLDocument2;
  fs: IHTMLFrameSetElement;
begin
  doc := WebBrowser.Document as IHTMLDocument2;
  if Succeeded(doc.body.QueryInterface(IHTMLFrameSetElement, fs))
    then ShowFrames(doc.frames)
    else ShowLinks(doc.links);
end;

Grüße vom marabu