如何禁用作为子菜单根节点的菜单项？

问题场景 #

使用Delphi的TPopupActionBar组件时，直接在FormCreate中设置子菜单根节点菜单项（如示例中的aaa）的Enabled := False后，该菜单项既不变灰也未真正禁用，无法达到预期效果。

示例代码：

type
  TForm1 = class(TForm)
    PopupActionBar1: TPopupActionBar;
    bbb: TMenuItem;
    aaa: TMenuItem;
    a111: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
    
procedure TForm1.FormCreate(Sender: TObject);
begin
  aaa.Enabled := False;
  a111.Enabled := False;
  bbb.Enabled := False;
end;

end.

解决方案 #

方案1：延迟设置属性 #

由于FormCreate阶段TPopupActionBar的内部初始化尚未完成，直接设置的Enabled会被覆盖。可以通过延迟消息的方式，在窗体初始化完成后再设置：

procedure TForm1.FormCreate(Sender: TObject);
begin
  PostMessage(Handle, WM_USER + 1, 0, 0);
end;

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  if Message.Msg = WM_USER + 1 then
  begin
    aaa.Enabled := False;
    a111.Enabled := False;
    bbb.Enabled := False;
    PopupActionBar1.Update; // 强制更新组件状态
  end;
end;

方案2：通过Action控制 #

如果菜单项关联了TAction，直接禁用菜单项无效，需禁用对应的Action：

1. 为目标菜单项（如aaa）关联一个TAction组件
2. 在代码中禁用该Action：

procedure TForm1.FormCreate(Sender: TObject);
begin
  Action1.Enabled := False; // Action1为关联aaa的动作
  a111.Enabled := False;
  bbb.Enabled := False;
end;

方案3：拦截点击事件 #

若以上方法无效，可手动拦截菜单项的点击事件，阻止未禁用状态的响应：

procedure TForm1.aaaClick(Sender: TObject);
begin
  if not (Sender as TMenuItem).Enabled then Exit;
  // 原有点击逻辑
end;

原因说明 #

TPopupActionBar在初始化过程中会根据子菜单状态或内部逻辑重置根节点菜单项的Enabled属性，导致FormCreate中的直接设置被覆盖。延迟设置或通过Action控制可规避该问题。

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