自定义TcCheckBox在PageControl非激活标签页无法自动调宽问题咨询

这个问题我之前在Delphi开发里也踩过坑，核心原因是VCL控件的句柄懒加载机制在作祟，结合你设置全局字体的时机，导致非激活标签页的TcCheckBox收不到必要的通知：

为什么会出现这个问题？ #

Delphi的VCL控件默认是需要的时候才创建窗口句柄（HWND），PageControl里未激活的TabSheet属于“非可见/非活跃”状态，里面的所有控件都不会提前创建句柄。而你依赖的CM_TEXTCHANGED、CM_FONTCHANGED这类消息，都是发送给控件的窗口句柄的——没有句柄，自然收不到这些通知。

另外你是在FormCreate之后通过PostMessage设置全局字体，这时候非激活TabSheet的控件还没触发句柄创建，所以完全没感知到字体变更，也就不会执行你写的宽度重计算逻辑。

几种可行的解决方案 #

方案1：强制提前创建非激活TabSheet控件的句柄 #

在你设置完全局字体之后，遍历PageControl的所有TabSheet，强制触发它们内部控件的句柄创建。可以用下面的代码：

procedure TMainForm.ApplyGlobalFontAndFixControls;
var
  i: Integer;
  TabSheet: TTabSheet;
  j: Integer;
begin
  // 这里是你设置全局字体的代码，比如：
  // Self.Font.Assign(GlobalFont);
  // ...

  // 遍历所有TabSheet，强制创建控件句柄
  for i := 0 to PageControl1.PageCount - 1 do
  begin
    TabSheet := PageControl1.Pages[i];
    // 触发TabSheet本身和所有子控件的句柄创建
    TabSheet.Perform(CM_FORCEHANDLECREATION, 0, 0);
    for j := 0 to TabSheet.ControlCount - 1 do
      TabSheet.Controls[j].HandleNeeded;
  end;
end;

这样所有控件都有了句柄，后续的字体变更消息就能正常接收，你的CM_TEXTCHANGED拦截逻辑也能生效。

方案2：修改TcCheckBox控件，不依赖消息触发宽度计算 #

既然消息依赖句柄，那我们可以直接重载控件的SetFont方法，不管有没有句柄，只要字体变更就主动计算宽度。修改你的cvCheckBox单元代码：

type
  TcCheckBox = class(TCheckBox)
  protected
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
    procedure SetFont(Value: TFont); override; // 新增重载
    procedure AdjustControlWidth; // 把原来CMTextChanged里的宽度计算逻辑抽成独立方法
  public
    // ...
  end;

implementation

procedure TcCheckBox.AdjustControlWidth;
var
  TextWidth: Integer;
begin
  // 这里放你原来在CMTextChanged里计算宽度的代码，比如：
  TextWidth := Canvas.TextWidth(Caption);
  Width := TextWidth + CheckBoxOffset + 8; // 根据你的需求调整偏移量
end;

procedure TcCheckBox.CMTextChanged(var Message: TMessage);
begin
  inherited;
  AdjustControlWidth;
end;

procedure TcCheckBox.SetFont(Value: TFont);
begin
  inherited; // 先执行父类的字体设置逻辑
  AdjustControlWidth; // 主动触发宽度调整
end;

这样不管控件有没有句柄，只要Font属性被修改（包括全局字体同步过来的变更），都会自动计算宽度，完美避开句柄懒加载的问题。

方案3：主动遍历控件触发调整 #

如果不想修改控件代码，也可以在设置全局字体后，递归遍历所有TcCheckBox，主动调用你的宽度计算逻辑：

procedure TMainForm.AdjustAllcCheckBox(ParentControl: TWinControl);
var
  i: Integer;
begin
  for i := 0 to ParentControl.ControlCount - 1 do
  begin
    if ParentControl.Controls[i] is TcCheckBox then
      TcCheckBox(ParentControl.Controls[i]).AdjustControlWidth; // 假设你把调整逻辑做成了公共方法
    if ParentControl.Controls[i] is TWinControl then
      AdjustAllcCheckBox(TWinControl(ParentControl.Controls[i]));
  end;
end;

// 使用时：
AdjustAllcCheckBox(Self);

额外提示 #

如果你的TcCheckBox还依赖Caption变更来调整宽度，除了CM_TEXTCHANGED，也可以重载SetCaption方法，确保Caption变更时不管有没有句柄都能触发调整，和SetFont的思路一致。

内容的提问来源于stack exchange，提问作者Error - CPU Not Foud