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

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

胡伟峰

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

阅读量436

点赞数

分类专栏： Delphi类文章标签：测试

Delphi类专栏收录该内容

32 篇文章 0 订阅

订阅专栏

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;