哈哈，原来我很菜！简单问题。

Question

不好意思，就是想设置每一个菜单项的ENABLED属性，该属性由一个字符数组的值来确定。想通过一次循环搞定。

Answer 1

CoolSlob() : 连你也这样说吗？
    难道DELPHI本身就没有做好？我想把每一个菜单项都走过一遍，DELPHI都不能做得到吗？看来VB要好些，只好改门了！

Answer 2

可是，还是舍不得DELPHI。
我想还是这样做的好：
     把菜单项的Caption和 Name用一个表存起，首先从权限表中读出权限，再动态地把菜单项进行创建，然后执行
    if 权限=有权 then MainMenu1.Items.Enabled:=true
    else MainMenu1.Items.Enabled:=false;大家说行不

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to form1.ComponentCount-1 do
begin
if form1.Components[i] is TMenuItem then
        (form1.Components[i] as Tmenuitem).caption:=components[i].name;
end;end;************
* 努力学习 *
*   全为   *
*￥人民币￥*
************

Answer 4

上面一段程序可以走一遍你的菜单，并把你菜单的名字改成你的菜单的名字，你的程序需要的和他大同小异，delphi完成不了vb的东东呵呵
才怪呢！！！************
* 努力学习 *
*   全为   *
*￥人民币￥*
************