Webbrowser CSS auslesen

[marabu]

Das kannst du so machen:

Delphi-Quellcode:

procedure TWebForm.DemoButtonClick(Sender: TObject);
var
  doc: IHTMLDocument2;
  s: TStrings;
begin
  s := TStringList.Create;
  doc := WebBrowser.Document as IHTMLDocument2;
  ExtractStyleSheets(doc.styleSheets, s);
  ShowMessage(s.Text);
  s.Free;
end;

Freundliche Grüße