delphi - 如何删除加速器热键 '&'字符？

Question

我使用 '&' 字符将加速键与我的 TLabel 控件结合使用。这样，用户可以按 Alt+& 后面的字符 将控件聚焦在表单上。

示例:

var
  MyLabel : TLabel;
  MyEdit : TEdit;
begin
  MyEdit := TEdit.Create(Self);
  MyEdit.Left := 20;
  MyEdit.Top := 40;
  MyEdit.Parent := Self;

  MyLabel := TLabel.Create(Self);
  MyLabel.FocusControl := MyEdit;
  MyLabel.Caption := '&Test';
  MyLabel.Left := 20;
  MyLabel.Top := 20;
  MyLabel.Parent := Self;
end;

在这种情况下，MyLabel 显示时带有下划线的 'T' 字符，并且按 Alt+T 会导致MyEdit 获得焦点。

如何获取没有 '&' 字符的 MyLabel.Caption ？是否有任何内置函数可以执行此操作？

我期望得到 'Test' 字符串而不是 '&Test'

Answer 1

您正在寻找StripHotKey功能。