2,498
社区成员
发帖
与我相关
我的任务
分享
procedure TMainFrm.MainAppEventsActionExecute(Action: TBasicAction;
var Handled: Boolean);//权限控制
begin
if (AppMainOp.GetAllRightID.IndexOf(IntToStr(Action.Tag)) = -1) //GetAllRightID得到用户所有权限编号列表
and (Action.Tag <> 0)
then
begin
MessageBox(Application.Handle,'对不起,您无权进行此操作!',
APP_Name,MB_OK + MB_ICONEXCLAMATION);
Handled := True;
MainAppEvents.CancelDispatch;//停止分发这个Action到其他的Action Handler
end;
end;