Delphi XE 2 ActionList - 启用/禁用操作

Question

我创建了一个简单的应用程序，其中包含:- 主要形式- 主菜单- Action 列表

操作列表包含三个操作:一个标准操作 - 退出，两个特定操作 - 1. 连接到数据库和 2. 计费。

为了防止在连接到数据库之前进行计费操作，我将计费属性设置为“启用”= false。

连接操作事件(OnExecute)我链接到此过程:

procedure TForm1.ConnectActionExecute(Sender: TObject);
begin
  ConnectAction.Enabled := false;
  BillingAction.Enabled := true;
  StatusBar1.Panels[0].Text := 'DB Status: Connected';
end;

但是在触发此操作后，ConnectAction 被禁用，但 BillingAction 继续保持禁用状态。请指出我的错在哪里？

Answer 1

您是否有 OnExecute 事件连接到 BillingAction？禁用没有 OnExecute 事件的操作是标准行为。

更新:您可以使用操作的 DisableIfNoHandler 属性来控制它。