在一个form中,我们放了几个actionlist.用一个combobox记录了每个actionlist的中文名字,如
车辆管理,汽油管理,轮胎管理,人员管理. 他们对应的actionlist为:
车辆管理------carActionList,
汽油管理------OilActionList,
轮胎管理------SheetActionList,
人员管理------EmpActionList
比如我想通过用户在combobox中选择一个actionlist,然后我就遍历该actionlist中的所有action,并记录
for i:=0 to myActionList.ActionCount-1 do begin
    if TAction(MainForm.myActionlist.Actions[i]).Enabled then
      myEnable:='T'
    else
      myEnable:='F';
    if TAction(MainForm.myActionlist.Actions[i]).Visible then
      myVisible:='T'
    else
      myVisible:='F';
    if Trim(Edit1.text)='' then
      Exit
    else
      myRole_Name:=Trim(Edit1.text);
    if Trim(ComboBox1.Text)='' then
      Exit
    else
      myApplication_Name:=Trim(ComboBox1.Text);
    //if myDM.RoleRightCDS.CanModify then
      //myDM.RoleRightCDS.Edit;
    myDM.RoleRightCDS.AppendRecord([myRole_Name, myApplication_Name,
       Taction(MainForm.myActionlist.actions[i]).Caption,myEnable,myVisible]);
现在关键是如何实现:用户通过选择名称,我就能找到该actionlist,并遍历它,谢谢!!!