delphi - 如何以编程方式更改TWebBrowser中的字体

Question

我们正在设计模式下使用Web浏览器构建电子邮件客户端。我们的客户有自己想要使用的特定字体。因此，我们希望能够使用它们给我们的字体来设置Web浏览器字体。他们给我们的字体只是一个字符串，例如“ Arial”

如何设置浏览器字体？

我们尝试了以下方法：

HtmlPage.execCommand('FONTNAME', False, 'Arial');

但是，这仅用于选择，并且由于Web浏览器是空的，因此没有选择。一旦用户开始键入，字体就会变回新的罗马时代。

我也尝试过

HtmlPage := ((Sender as TWebBrowser).Document  as IHTMLDocument2);
while (Sender as TWebBrowser).QueryStatusWB( OLECMDID_SELECTALL) <> OLECMDF_SUPPORTED + OLECMDF_ENABLED do
        Application.ProcessMessages;
(Sender as TWebBrowser).ExecWB(OLECMDID_SELECTALL,OLECMDEXECOPT_PROMPTUSER,pvaIn,pvaOut);
HtmlPage.execCommand('FONTNAME', False, 'Arial');

但是，这是一个无限循环。

任何建议，将不胜感激 ：）
谢谢。

Answer 1

那这个呢？

((Sender as TWebBrowser).Document as IHTMLDocument2).body.style.fontFamily:='Arial';