CSS 和 TWebbrowser delphi

Question

我想知道是否可以操纵网站的 CSS。例如输入字段中的颜色？我看了几个问题，但我不清楚是否可能。

For Example in Google Chrome, Whenever a field is selected it shows a golden line around the outsite.是否可以在任何网站上使用 delphi 执行此操作和其他操作。编写应用于在 Twebbrowser 中打开的网站的 CSS 代码？仅供个人观看

谢谢

我也可以使用此代码更改输入字段背景的颜色吗？我可以更改背景颜色和更改字体大小，但似乎无法弄清楚输入字段的颜色或边框。这是代码:

http://www.delphidabbler.com/tips/58

Answer 1

加载页面后，可以通过从代码添加样式表来修改 CSS:

var
   document: IHTMLDocument2;
   stylesheet: IHTMLStyleSheet;
   stylesheetIndex: Integer;
begin

   // Inject CSS Style Sheets
   document := webBrowser1.Document as IHTMLDocument2;

   stylesheetIndex := document.styleSheets.length;
   if stylesheetIndex > 31 then
      raise Exception.Create('Already have the maximum amount of CSS stylesheets');

   stylesheet := document.createStyleSheet('', stylesheetIndex);
   stylesheet.cssText := ...