改变标题字体，菜单字体(未测试)

最新推荐文章于 2021-06-03 01:44:42 发布

转载最新推荐文章于 2021-06-03 01:44:42 发布 · 476 阅读

文章标签：

#测试

Delphi类专栏收录该内容

32 篇文章

订阅专栏

本文详细介绍了如何在Windows系统中调整非客户端元控件的字体样式与大小，包括标题字体、菜单字体、消息框字体等，通过使用SystemParametersInfo函数实现个性化设置。

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;