Delphi简单权限控制

使用TActionList 控件
将要控制的控件的ACTION指向ACTIONLIST1
设置好每个的TAG
ModuleData.MyPower为数据模块中的变量

procedure TForm1.FormShow(Sender: TObject);
var
  I:Integer;
  Hstr:string;
  SStr:string;
begin
  for I:= 0 to ActionList1.ActionCount - 1 do
  begin
    TAction(ActionList1.Actions[i]).Visible := False;
    TAction(ActionList1.Actions[i]).Enabled := False;
  end;
  Hstr := ','+ModuleData.MyPower+',';
  for I:= 0 to ActionList1.ActionCount - 1 do
  begin
    SStr := ','+IntToStr(TAction(ActionList1.Actions[i]).Tag)+',';
    if StrPos(PAnsiChar(Hstr),PAnsiChar(SStr)) <> nil then
    begin
      TAction(ActionList1.Actions[i]).Visible := True;
      TAction(ActionList1.Actions[i]).Enabled := True;
    end;
  end;
end;