如何实现程序中复选框的自适应大小（适配字体与缩放）？

在实现窗体控件缩放与字体适配时，TCheckBox因无AutoSize属性，手动计算宽度容易受DPI、UI主题、分辨率影响，导致文本截断或组件重叠。你当前使用SM_CXMENUCHECK的方案错误，因为该值对应菜单复选标记的尺寸，而非窗体复选框的实际大小。以下是两种可靠的解决方法：

方法1：使用主题API（推荐，适配现代Windows） #

Windows主题系统会定义复选框的尺寸、文本间距等样式，通过GetThemePartSize可直接获取符合当前主题的精确参数：

uses
  Themes, UxTheme;

procedure AdjustCheckBoxWidth(ACheckBox: TCheckBox);
var
  HTHEME: HTHEME;
  CheckSize, TextSpacing: TSize;
  TextWidth: Integer;
begin
  // 检查系统是否启用主题
  if ThemeServices.ThemesEnabled then
  begin
    HTHEME := OpenThemeData(ACheckBox.Handle, 'BUTTON');
    try
      // 获取复选框本体的尺寸（TP_CHECKBOX类，TS_NORMAL状态）
      GetThemePartSize(HTHEME, ACheckBox.Canvas.Handle, BP_CHECKBOX, CBS_UNCHECKEDNORMAL, nil, TS_TRUE, CheckSize);
      // 获取复选框与文本之间的间距（TP_CHECKBOX的内容边距）
      GetThemePartSize(HTHEME, ACheckBox.Canvas.Handle, BP_CHECKBOX, CBS_UNCHECKEDNORMAL, nil, TS_TRUE, TextSpacing);
      // 计算文本宽度
      TextWidth := ACheckBox.Canvas.TextWidth(ACheckBox.Caption);
      // 总宽度 = 复选框宽度 + 间距 + 文本宽度
      ACheckBox.Width := CheckSize.cx + (TextSpacing.cx div 2) + TextWidth;
    finally
      CloseThemeData(HTHEME);
    end;
  end
  else
  begin
    // 降级到非主题系统的处理逻辑
    CheckSize.cx := GetSystemMetrics(SM_CXCHECK);
    // 非主题下的默认间距（通常为6像素，可根据系统调整）
    TextSpacing.cx := 6;
    TextWidth := ACheckBox.Canvas.TextWidth(ACheckBox.Caption);
    ACheckBox.Width := CheckSize.cx + TextSpacing.cx + TextWidth;
  end;
end;

方法2：使用高DPI兼容的系统指标 #

如果无需适配主题，可使用GetSystemMetricsForDPI获取对应DPI下的复选框尺寸（替代GetSystemMetrics，避免高DPI下缩放错误）：

uses
  Winapi.Windows;

procedure AdjustCheckBoxWidth(ACheckBox: TCheckBox);
var
  DPI: Integer;
  CheckWidth, Spacing, TextWidth: Integer;
begin
  // 获取控件所在窗口的DPI值
  DPI := GetDpiForWindow(ACheckBox.Handle);
  // 获取对应DPI下的复选框标准宽度
  CheckWidth := GetSystemMetricsForDPI(SM_CXCHECK, DPI);
  // 文本与复选框的间距（基于系统边框指标计算）
  Spacing := GetSystemMetricsForDPI(SM_CXEDGE, DPI) * 2;
  // 计算当前字体下的文本宽度
  TextWidth := ACheckBox.Canvas.TextWidth(ACheckBox.Caption);
  // 计算并设置复选框总宽度
  ACheckBox.Width := CheckWidth + Spacing + TextWidth;
end;

关键注意事项 #

• SM_CXCHECK才是窗体复选框的标准宽度，而非SM_CXMENUCHECK；
• 高DPI环境下必须使用GetSystemMetricsForDPI而非GetSystemMetrics，否则会出现尺寸偏差；
• 主题API能精准适配当前系统的UI样式（如Windows 11的圆角复选框），是最优方案；
• 计算文本宽度时，务必使用复选框自身的Canvas，因为控件的字体设置会直接影响文本尺寸。

内容的提问来源于stack exchange，提问作者Some1Else