actionlist的onexecute事件不能控件每个action

Question

我用ActionList定义一个New   Action，将toolbar上的toolbutton的action定为新建的action，启动后这个toolbutton的enable为不可操作(false),加了以下这句也没用。
procedure TForm1.ActionList1Execute(Action: TBasicAction;
  var Handled: Boolean);
begin
TAction(ActionList1.Actions[1]).Enabled:=True;
end; 要这样才有用
procedure TForm1.Action1Execute(Sender: TObject);
begin
action1.Enabled:=true;
end;
难道要每个action都要这样写，这也太麻烦了吧

Answer 1

TAction(ActionList1.Actions[1]).Enabled:=True; 
这里对吗？