TWebBrowser : Alle Input Felder, Bilder etc. auflisten

[marabu]

Zitat von Lannes:

kann der WebBrowser nicht

Wetten dass?

Delphi-Quellcode:

procedure TWebForm.FramesButtonClick(Sender: TObject);
var
  win: IHTMLWindow2;
  doc: IHTMLDocument2;
  fc: IHTMLFramesCollection2;
begin
  doc := WebBrowser.Document as IHTMLDocument2;
  win := doc.parentWindow;
  fc := win.frames;
  ShowMessage(Format('%d frames found', [fc.length]));
end;

Grüße vom marabu