Delphi中如何让无OnExecute事件的TActions关联菜单保持激活？

要实现通过TActionList.OnExecute统一处理所有Action的逻辑，同时避免关联菜单项被禁用，有以下几种可行方案：

方案一：给TAction绑定空的OnExecute事件 #

Delphi禁用关联控件的核心判断是Action是否存在OnExecute事件，只要给每个需要统一处理的Action绑定一个空实现的OnExecute函数，就能让菜单项保持激活状态。

步骤： #

1. 编写通用空处理函数：

procedure TMainForm.DummyActionExecute(Sender: TObject);
begin
  // 空实现，仅用于让Delphi识别Action具备执行逻辑
end;

2. 在设计时，将所有目标TAction的OnExecute事件指向这个空函数。
3. 在TActionList.OnExecute中实现类工厂的统一逻辑：

procedure TMainForm.ActionListGlobalExecute(Action: TBasicAction; var Handled: Boolean);
var
  TargetActionClass: TBaseActionClass; // 替换为你的操作类基类
  ActionInstance: TBaseActionClass;
begin
  // 根据Action的Name/Tag等标识匹配对应的操作类
  if Action.Name = 'actImportData' then
    TargetActionClass := TImportDataAction
  else if Action.Name = 'actExportReport' then
    TargetActionClass := TExportReportAction
  else
    Exit;

  // 创建并执行操作类
  ActionInstance := TargetActionClass.Create;
  try
    ActionInstance.Execute;
  finally
    ActionInstance.Free;
  end;

  Handled := True; // 标记事件已处理，阻止后续默认流程
end;

方案二：自定义TAction类重写Update逻辑 #

如果不想给每个Action绑定空事件，可以自定义TAction子类，重写其Update方法，强制保持Enabled状态：

代码示例： #

type
  TUnrestrictedAction = class(TAction)
  protected
    procedure Update; override;
  end;

procedure TUnrestrictedAction.Update;
begin
  // 先执行父类更新逻辑（保留Caption、Hint等同步）
  inherited;
  // 强制设置Enabled为True，忽略无OnExecute的判断
  Enabled := True;
end;

之后在设计时用TUnrestrictedAction替代默认的TAction，关联的菜单项就会始终保持激活，直接通过TActionList.OnExecute处理逻辑即可。

方案三：直接修改控件的OnUpdate事件（不推荐） #

给每个关联的TMenuItem添加OnUpdate事件，强制设置控件启用：

procedure TMainForm.MenuItem1Update(Sender: TObject);
begin
  (Sender as TMenuItem).Enabled := True;
end;

此方法需要逐个配置控件，维护成本高，仅作为备选方案。

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