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