1

使用：Delphi XE2，32位Windows VCL表单应用程序

在 ActionManager 中，我添加了一个操作并分配了类别名称。然后我将类别从 ActionManager 拖放到表单上的 ActionMainMenuBar 上。我这样做是为了在 ActionMainMenuBar 上创建菜单项。因为我计划通过代码手动创建和添加操作，并且对“第一个”操作没有实际用途，所以我通过设置隐藏它Visbile := False。

然而，在运行时，即使在以编程方式创建操作并将它们添加到菜单之后，菜单仍然处于禁用状态 - 这不是预期的，因为添加的操作已启用并且具有有效的 OnExecute 事件处理程序。

我的问题是如何刷新菜单项，以便在添加一个或多个操作项（子菜单项）后启用它？

在代码中，我有这个：

  // Create menu for each session in the Session menu   
  // eg. Session 1, Session 2, Session 3 etc.   
  var
    p: Integer;
    s: String;   
  begin
    // this code executes a number of times ie in a loop
    p := Pos(' ', s);
    a := TAction.Create(actMgr);
    a.Category := 'Session';
    a.Name := 'actSession' + Copy(s, p + 1, Length(s) - p);
    a.Caption := 'Session ' + Copy(s, p + 1, Length(s) - p);
    a.Enabled := True;
    a.OnExecute := actSessionExecute;

    p := ActionMainMenuBar1.ActionClient.Items[3].Items.Count - 1;
    actMgr.AddAction(a, ActionMainMenuBar1.ActionClient.Items[3].Items[p]);

  end;


  procedure TfMain.actSessionExecute(Sender: TObject);   
  begin
     showmessage(TAction(Sender).Name);   
  end;

这是设计模式下的 ActionMainMenuBar、ActionManager 和初始操作（Visible 设置为 False）的屏幕截图：

这是它最初在设计模式下的样子

TIA。

4

1 回答 1

0

添加您的操作项后调用ActionMainMenuBar1.ActionClient.Items[3].CommandStyle := csMenu;将强制重新创建命令属性，因此您的会话类别将可访问。

于 2013-10-30T10:34:34.730 回答