即使 UI 状态不允许，TLabel 也会显示加速键

Question

在默认的 Windows 设置下，除非用户按下 ALT 键，否则加速键不会显示在对话框中。

Delphi的TLabel控件不遵守这个约定，如下图：

虽然标签和复选框都指定了加速键，但复选框正确地隐藏了它，但标签没有。当然，当ALT被按下时，加速器显示复选框，但这是不正确的行为。

我对为什么会发生这种情况的理解是，实现此行为的 VCL 代码包含在 TWinControl 中，例如 UpdateUIState 方法，并且依赖于向底层窗口控件发送 WM_CHANGEUISTATE 消息。由于TLabel 没有窗口化，它错过了这个处理。

任何人都可以提出一种方法来实现非窗口控件的所需行为吗？

更新 1

我刚刚发现组合框和无线电组也不响应 UI 状态。

更新 2

QC#97044.

Answer 1

我想我已经找到了处理它的方法。

function HideAccelFlag(Control: TControl): Integer;
begin
  //ask the top level window about its UI state
  while Assigned(Control.Parent) do begin
    Control := Control.Parent;
  end;
  if (Control.Perform(WM_QUERYUISTATE, 0, 0) and UISF_HIDEACCEL)=UISF_HIDEACCEL then begin
    Result := DT_HIDEPREFIX;
  end else begin
    Result := 0;
  end;
end;

type
  TUIStateAwareLabel = class(TLabel)
  protected
    procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
  end;

procedure TUIStateAwareLabel.DoDrawText(var Rect: TRect; Flags: Integer);
begin
  if ShowAccelChar then begin
    Flags := Flags or HideAccelFlag(Self);
  end;
  inherited;
end;

通过将表单流机制与TReader.OnFindComponentClass 挂钩，我确保始终创建TUIStateAwareLabel 而不是TLabel。

处理TCustomGroupBox后代更麻烦。对于他们，我将TCustomGroupBox.Paint的源代码复制到我的后代中，并再次使用HideAccelFlag。

下一个任务是将其写成 QC 报告。

Answer 2

您可以使用TStaticText 代替TLabel。

来自文档页面：

当组件的加速键必须属于窗口控件时，使用 TStaticText 而不是 TLabel。

Answer 3

抱歉没有代码，但也许是一个解决方案的方向。

我看到 TWinControl 使用 NotifyControls 向所有包含的控件广播消息。它用于通知控件Parent* 属性的变化，例如

procedure TWinControl.CMShowHintChanged(var Message: TMessage);
begin
  inherited;
  NotifyControls(CM_PARENTSHOWHINTCHANGED);
end;

我猜你可以做的是在你的表单上编写一个消息处理程序来获取 WM_CHANGEUITSTATE 并将它传递给表单的所有控件，使用 NotifyControls 或类似的东西，只将它传递给容器和 TLabels。

然后，您仍然需要一种方法让您的 TLabel 对该消息做出反应。我猜（尚未调查）您可以覆盖（后代或拦截器）WndProc 方法和/或对 FDefWndProc（受保护的属性）执行某些操作。

你将不得不在...中满足窗体中的框架