如何在 ActionMainMenuBar 上的主菜单（=类别，通过 TAction 子菜单）上添加 OnClick 事件？

Question

我正在用 TActionMainMenuBar 替换旧的 TMainMenu，但它有一些问题。

我目前正在为我的主菜单项使用“OnClick”处理程序，但我找不到使用TActionMainMenuBar 重现相同行为的方法。

例如，我创建了一个类别为“示例”的TAction“测试”，然后将其拖放到TActionMainMenuBar 上。我可以将代码添加到子菜单“Test”的执行处理程序，因为它分配了一个TAction，但我不能将事件代码添加到主菜单项“Sample”，因为它只是一个类别/ “测试”的 TActionClientItem 没有事件。

我试图为这个TActionClientItem 分配一个动作，但Delphi XE3 说“你不能设置属性...”，当我点击它时，它会给我一个对话框“当前框架没有实现的动作'无' ”。

另一种方法是两个TActions，“Sample”和“Test”以及“（无类别）”，但我不能将“Test”拖放为“Sample”的子菜单TActionMenuBar 之前。看起来我只能拖放主菜单项，而不能在空的主菜单项上拖放子菜单项。

Answer 1

使用主菜单项的OnClick 处理程序的目的通常是确定子菜单项是启用/禁用还是可见。它通常也是您启用/禁用执行相同功能的工具栏按钮之类的地方：

procedure TForm1.MyMainMenuItemClick(Sender: TObject);
begin
  SomeMenuItem.Enabled := SomeConditionTest;
  SomeToolButton.Enabled := SomeMenuItem.Enabled;
  AnotherMenuItem.Enabled := AnotherConditionTest;
  AnotherToolButton.Enabled := AnotherMenuItem.Enabled;
end;

对于TActionMainMenuBar 项目，您可以在OnUpdate 事件中的单个操作中执行此操作。这样做的好处是，当您启用/禁用该操作时，与该操作相关的所有控件也会同时启用/禁用。

procedure TForm1.SomeActionUpdate(Sender: TObject);
begin
  SomeAction.Enabled := SomeConditionTest;  // Also controls the toolbutton
end;

procedure TForm1.AnotherActionUpdate(Sender: TObject);
begin
  AnotherAction.Enabled := AnotherConditionTest; // Toolbutton too.
end;

在子项显示之前调用OnUpdate 事件，这与调用旧主菜单项的OnClick 的时间相同。