如何在Delphi中使用Windows默认字体

如您所知，

windowsxp

和

windows7

中的默认字体是

Tahoma

。但是在

windows8

和

8.1

中，它变为

Segoe UI

即使我的应用程序运行在Windows 8.1上，它的默认字体还是

Tahoma

所以我的问题是如何用delphi识别默认的windows字体？所以我的

标签

，

文本框

，等等。。。当我的应用程序在windows XP下运行时将以Tahoma字体显示，当我的应用程序在windows 8下运行时，它们将以

Segoe UI

font显示

---

顺便说一句，我试图将字体更改为

默认值

，但没有任何帮助。

请参见@SertacAkyuz我对更改字体没有问题。我只想用Delphi找到默认的windows字体。如果你读了David的答案，你可以推断你可以用Screen.XXFont属性中的一个来修改Application.DefaultFont，然后通过使用ParentFont属性你可以得到你想要的。或多或少您可能需要查看Screen.IconFont等。没有单一的默认字体。您想要哪一个？Vista中不是已经有了“标准”GUI字体

Segoe UI

？