delphi - 我如何知道 TFont 名称是否真正受支持？

Question

当我将 TRichEdit 控件的 TFont Name 属性设置为“Courier”时，字体更改为 Courier。

Edit->Font->Name  = "Courier";

如果我想使用一种我不确定系统是否支持的字体(例如较旧的操作系统)怎么办？据我目前所知，如果我为 TFont 属性分配一个“未知”名称，实际字体不会改变，系统会处理它并坚持使用以前的字体，但是我如何以编程方式检查这个？

我想知道字体是否真的发生了变化(因为字体可用/已安装)？

或者我是否需要查询“屏幕”->“字体”以查明名称是否在列表中？

仅供引用:使用 Borland C++ Builder (2009)，但我确信也与 Delphi 相关。

Answer 1

TScreen::Fonts表示一个 TStrings 列表，其中包含系统中安装的字体名称(实际名称而不是文件名)。

使用其 IndexOf()测试您的字体是否存在的方法:

if (Screen->Fonts->IndexOf("Courier") != -1)
{
    ShowMessage("Font installed");
}