怎么遍历actionlist中的action?
解决方案 »
- cxgrid设置明细关系
- 高分求教:主从表的查询效率问题
- 如何控制视频从指定的时间开始播放
- createwindow后window也显示了,怎么样才可以修改dwStyle(WS_OVERLAPPEDWINDOW or WS_VSCROLL)。
- 一条String的赋值语句太长了,怎么写在多行里
- quickreport怎么预览不了.
- 急!!!给POP3.Password负值后出现问题!!!!
- 一个DLL内存权限的问题!
- 关于clientsocket和serversocket的问题!
- 超级解霸是如何实现视频广播的????
- 如何用DDE实现两个不同进程间通信
- 各位大哥,一个考勤问题,小弟非常迷茫,在此请教!(有比较好的答案就揭贴)
procedure TFormMain.SetPower;
var
vAction: TAction;
i: integer;
begin
LoadPowerList(FPowerList);
for i := 0 to AL_Main.ActionCount - 1 do
begin
vAction := TAction(AL_Main.Actions[i]);
vAction.Enabled := GetPower(vAction.Category,vAction.Tag);
end;
end;