改变标题字体，菜单字体

最新推荐文章于 2021-06-18 18:00:14 发布

原创最新推荐文章于 2021-06-18 18:00:14 发布 · 1.3k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

delphi

当前文章被收录于：

delphi

22 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

博客给出一段代码，通过SystemParametersInfo函数获取旧的非客户端指标，然后修改消息框、标题、菜单等字体为楷体，高度设为18，最后设置新的非客户端指标。代码涉及TNonClientMetrics结构体操作。

var
ncm: TNonClientMetrics;
begin
ncm.cbSize := SizeOf(TNonClientMetrics);
{get old non client metrics}
SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0);
{
lfCaptionFont - regular captions
lfSmCaptionFont - small captions
lfMenuFont - menus
lfStatusFont - status bars
lfMessageFont - message boxes
}
ncm.lfMessageFont.lfFaceName := '楷体';
ncm.lfMessageFont.lfHeight:=18;
ncm.lfCaptionFont.lfHeight:=18;//标题字
ncm.lfMenuFont.lfHeight:=18;//菜单
{set new non client metrics}
SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0);
end;