delphi - TWebrowser 加载大字体页面

Question

我在组件 TwebBrowser 中发现了一个奇怪的行为，当我加载某些页面时，它们会以更大的字体显示。与 Internet Explorer 中使用的不同。

查看这些示例图像

在此链接中http://docwiki.embarcadero.com/RADStudio/en/Main_Page在 TWebBrowser 中加载较大字体，在 IE 中加载小字体(另一种样式)。

本页https://stackoverflow.com/在TWebBrowser组件和IE中以相同的样式加载。

我在不同的机器上尝试过，但发生了同样的事情。

我该如何解决这个问题？这是 CSS 的问题吗？

Answer 1

我认为问题在于 TWebBrowser 组件正在兼容模式下运行 Internet Explorer。事实上，如果您在 Internet Explorer 8 及更高版本中打开 docwiki 页面，您会发现字体小且美观，与它们在 TWebBrowser 中的外观形成鲜明对比。但是，如果单击 Internet Explorer 窗口中的“兼容性 View ”按钮，您将获得与在 TWebBrowser 组件中获得的相同的大文本。 (众所周知，IE6 使用过大的文本。)

根据this MSDN blog entry和 the MSDN docs ，要控制TWebBrowser控件的兼容模式，使用注册表:

procedure TForm3.FormCreate(Sender: TObject);
begin

  with TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;
      if OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', true) then
        WriteInteger(ExtractFileName(Application.ExeName), 8888);
    finally
      Free;
    end;

  WebBrowser1.Navigate('http://docwiki.embarcadero.com/RADStudio/en/Main_Page');
end;

“IE8 标准模式”、“IE7 标准模式”和“IE8 标准模式(强制)”的值分别为 8000、7000 和 8888。因此，上述代码将强制使用 IE8 标准模式。

然而，令人惊讶的是，将模式设置为标准只会使字体变得更大。