我的代码如下:其中aButtonItem是TStringList类型,里面存放的字符串前面加‘act’三个字符的话正好是Action的Name
for i:=0 to ActionList.ActionCount-1 do
begin
TAction(ActionList.Actions).Visible:= aButtonItem.IndexOf(
ActionList.Actions.Name.Substring(3))>=0;
TAction(ActionList.Actions).Enabled:= TAction(ActionList.Actions).Visible;
end;