如何转义TLabel控件Caption属性中的加速键字符&以实现原样显示？

你可以通过以下两种方式实现TLabel原样显示包含&的字符串：

方案1：修改控件属性（最简单） #

直接将对应TLabel控件的ShowAccelChar属性设置为False即可。该属性的作用就是控制控件是否将&解析为加速键前缀，关闭后Caption中的所有&都会直接原样渲染，不需要对输入字符串做任何修改，适合批量处理所有加载外部动态字符串的标签场景。

方案2：转义加速键字符 #

如果你需要保留其他标签的加速键功能，不想全局修改属性，可以自行实现转义函数：VCL的规则是连续两个&会被识别为要显示单个普通&字符，不会被解析为加速键前缀，只要把输入字符串中的所有单个&替换为两个&即可。
示例转义函数代码：

function EscapeHotkey(const InputStr: string): string;
var
  I, Offset: Integer;
begin
  Result := InputStr;
  Offset := 1;
  for I := 1 to Length(InputStr) do
  begin
    if InputStr[I] = '&' then
    begin
      Insert('&', Result, I + Offset);
      Inc(Offset);
    end;
  end;
end;

调用方式：

MyLabel.Caption := EscapeHotkey('B&B');

调用后Caption实际赋值为B&&B，运行时会原样显示为B&B。

你之前提到的StripHotkey函数的作用是直接移除&及对应的加速键标记，无法保留&字符显示，所以不适用当前需求。

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