一个关于菜单的奇怪的问题

Question

主菜单mainmenu1:TMainMenu,动态创建在设置菜单项时，菜单全部消失，代码如下：
        for i := 0 to mainmenu1.Items.Count - 1  do
        begin
            if (UpperCase(mainmenu1.Items[i].Name) <> UpperCase('MENU_WINDOW')) and
                (UpperCase(mainmenu1.Items[i].Name) <> UpperCase('MENU_USER'))
            then
            mainmenu1.Items[i].Enabled := false ;
        end;
所有的菜单都没反应，一移动窗口，所有菜单全部消失

Answer 1

(UpperCase(mainmenu1.Items[i].Name) <> UpperCase('MENU_WINDOW')) and
                (UpperCase(mainmenu1.Items[i].Name) <> UpperCase('MENU_USER'))---------------------------------
name???

Answer 2

请问楼上的，如何更新？
name是菜单的名字如果不是动态创建的菜单，没有任何问题

Answer 3

>>如果不是动态创建的菜单，没有任何问题那你是不是应该把动态创建菜单的代码帖出来啊？-_-!

Answer 4

var
    i : integer ;
    tmpitem : TMenuItem ;
begin
    mainmenu.Items.Clear ;
    for i := low(Items) to High(Items) do
    begin
        with Items[i] do
        begin
            tmpitem := TMenuItem.Create(MainMenu.Owner);
            tmpitem.Caption := caption ;
            tmpitem.GroupIndex := groupindex ;
            tmpitem.Name := ID ;
            tmpitem.Tag := SerialNo ;
            tmpitem.Visible := true;
            tmpitem.Enabled := true ;
            MainMenu.Items.Add(tmpitem);
            
        end;
    end;
end;