FireMonkey中计算TComboBox文本宽度：Canvas为空报错及正确方法

在FireMonkey框架里，TComboBox的Canvas属性在控件未完全初始化或未显示时可能为空，直接调用会触发访问违规。要基于已设置的字体计算文本像素宽度，可采用以下可靠方法：

方法一：使用TTextLayout对象 #

这是FireMonkey推荐的文本测量方式，能精准匹配控件的字体、样式等设置：

var
  TextLayout: TTextLayout;
  TextWidth: Single;
begin
  TextLayout := TTextLayoutManager.DefaultTextLayout.Create;
  try
    // 复制ComboBox的字体配置
    TextLayout.Font.Assign(ComboBox1.Font);
    // 设置待测量的文本内容
    TextLayout.Text := 'some text';
    // 更新文本度量信息
    TextLayout.UpdateMetrics;
    // 获取文本宽度
    TextWidth := TextLayout.Width;
  finally
    TextLayout.Free;
  end;
end;

方法二：利用控件的内部文本渲染控件 #

如果ComboBox使用了自定义样式，可通过查找其内部的文本控件来测量：

var
  TextControl: TTextControl;
  TextWidth: Single;
begin
  // 获取ComboBox内部负责文本显示的控件（默认名为'Text'）
  TextControl := ComboBox1.FindStyleResource<TTextControl>('Text');
  if Assigned(TextControl) then
  begin
    // 确保控件样式已加载
    if not TextControl.IsVisible then
      TextControl.ApplyStyleLookup;
    // 使用该控件的Canvas测量文本宽度
    TextWidth := TextControl.Canvas.TextWidth('some text');
  end;
end;

关键注意事项 #

• 不要直接访问TComboBox的Canvas属性，该属性仅在控件处于绘制周期内才有效。
• 使用TTextLayout时，需完整复制ComboBox的字体属性（如字号、字重、斜体等），保证测量结果与实际显示一致。
• 若在控件创建初期（如FormCreate事件）测量，优先选用TTextLayout，此时控件样式可能尚未完全加载。

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