delphi – 即使UI状态不说明,TLabel也会显示加速键

发布时间：2020-12-15 04:08:13 所属栏目：大数据来源：网络整理

导读：使用默认的 Windows设置,在用户按下ALT键之前,加速键不会显示在对话框中. Delphi的TLabel控件不遵守此约定,如下所示：虽然标签和复选框都指定了加速键,但复选框会正确隐藏它,但标签不会.当然,当按下ALT时,加速器会显示复选框,但是之前的行为是不正确的. 我

使用默认的 Windows设置,在用户按下ALT键之前,加速键不会显示在对话框中.

Delphi的TLabel控件不遵守此约定,如下所示：

虽然标签和复选框都指定了加速键,但复选框会正确隐藏它,但标签不会.当然,当按下ALT时,加速器会显示复选框,但是之前的行为是不正确的.

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

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

更新1

我刚刚发现组框和广播组也没有响应UI状态.

更新2

QC#97044.

解决方法

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

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) 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报告.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!