如何在主菜单(= OnClick，通过TAction子菜单)上添加ActionMainMenuBar事件？

Question

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

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

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

我试图给这个TActionClientItem分配一个操作，但是XE3说“您不能设置属性.”当我单击它时，它会给我一个对话框，“未为当前框架‘无’实现的操作”。

另一种方法是两个TActions，"Sample“和"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时间相同。