MainMenu的问题！ ( 积分: 50 )

我想设置MainMenu下的item为enable或者disable！
如何实现呢！？
是程序运行过程中动态实现！谢谢！

我想设置MainMenu下的item为enable或者disable！
如何实现呢！？
是程序运行过程中动态实现！谢谢！

1、最好是用actionlist来管理，然后设置menuitem的action属性
这样要设置enable,disable就设置对应的action
2、每一个item都有标识的，比如N1,N2,N***

能否具体！？
谢谢！

直接设置不就可以吗？每一个ITEM都对应一个标识的，在程序里都能找到。

MainMenu1.Items[0].Items[1].Enabled := False;

我是初级的！
我就想知道如何实现！
最好能给我个代码！谢谢

To 凡1979,
加我的QQ:82780254
我和你说说

你可以看一下delphi下的例子
file－＞new－＞other－＞projects－＞MDI　Application
这个例子里就有介绍actionlist的用法，它的menu就是和action连在一起的

procedure TForm1.Button1Click(Sender: TObject);
begin
N111.Enabled := not N111.Enabled;// 点一次就反过来
end;

这样就可以了，是不是我没理解？

for hh:=1 to 6 do
begin //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
for nn:=0 to MainMenu1.Items[hh].Count-1 do
begin //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
if Get_nodeFactID=trim(MainMenu1.Items[hh].items[nn].Hint) then
begin
MainMenu1.Items[hh].items[nn].OnClick(Sender);
end;
for gg:=0 to MainMenu1.Items[hh].items[nn].Count-1 do
begin//***************************************************
if Get_nodeFactID=trim(MainMenu1.Items[hh].items[nn].items[gg].Hint) then
begin
MainMenu1.Items[hh].items[nn].items[gg].OnClick(Sender);
end;
for mm:=0 to MainMenu1.Items[hh].items[nn].items[gg].Count-1 do
begin //))))))))))))))))))))))))))))))))))))))))
if Get_nodeFactID=trim(MainMenu1.Items[hh].items[nn].items[gg].Items[mm].Hint) then
begin
MainMenu1.Items[hh].items[nn].items[gg].Items[mm].OnClick(Sender); end;
end; //))))))))))))))))))))))))))))))))))))))00
end;//*****************************************************
end; //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
end;//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5

多人接受答案了。