button权限问题？

Question

我要为每个button设置权限，我的方法是在每个button的click事件中判断，程序中有50多个button,这样做觉得太麻烦了，有没有好的办法？actionlist是不是只是可以控制菜单的？

Answer 1

可以写个通用的撒，button都用一个处理过程，也可以写个函数

Answer 2

这种好象没有简便的方法了
自己写个函数或者过程
在程序中通每个按钮用就可以了啊
比如：
Function Check(button:TButton):boolean;
begin
 //.........
end;

Answer 3

For i := 0 To ComponentCount - 1 Do
    Begin
      If (Components[i].ClassType = TButton) Then
        TButton(Components[i]).Enabled := false;
.............
End;