怎样遍历ActionList 50分 急!!哪位高手帮帮忙? ( 积分: 50 )

  • 主题发起人 主题发起人 myyinuo
  • 开始时间 开始时间
M

myyinuo

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用Actions的数组形式遍历ActionList1 设定其Enable或Visable属性
ActionList1->Actions
Delphi代码如下:
TAction(ActionList1.Actions).enable = fasle
最好在BCB试验一下。
 
如何用Actions的数组形式遍历ActionList1 设定其Enable或Visable属性
ActionList1->Actions
Delphi代码如下:
TAction(ActionList1.Actions).enable = fasle
最好在BCB试验一下。
 
很难么?
 
难道这就把各位难倒了。。。。。。
还是不值一提?
 
我以前是这么实现的(效率可能低一些,呵呵):
for i := 0 to ComponentCount -1do
begin
if Components is TAction then
(Components as TAction).Enable := False;
end;
 
[red]to: royal1442[/red]
忘了告诉你,我要的是C++代码.
Delphi代码我已经实现
 
自由界面和报表的完美解决方案!
http://www.anylib.com
 
ActionList1->Actions->Enable = False;
C++区分大小写的,请看看I是不是声明为小写了
 
[red]to:zqw0117[/red]
Enable 不是Actions的属性,这样会报错的,我已经试过!
 
(TAction)(ActionList1->Actions)->Enable
这样试试,我这台机器上没装C++ Builder
 
[red]to:zqw017[/red](TAction)(ActionList1->Actions)->Enable 我试过
没有错误信息,但不生效,就是控制不到Enabled属性
郁闷呀
 
下断点,跟一下,是不是进了SetEnable方法!看看里面怎么走的.
 
不理解,楼主既然定义了Action,为什么又要把它置为不可用?如果用不到,不定义就好啦![:D]
 
多人接受答案了。
 
后退
顶部