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

Question

我创建了一个简单的应用程序，其中包含： - 主要表格 - 主菜单 - 行动清单

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

为了防止在连接到数据库之前采取结算操作，我将“启用”属性设置为billing = 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

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

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