主菜单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;
所有的菜单都没反应,一移动窗口,所有菜单全部消失
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;
所有的菜单都没反应,一移动窗口,所有菜单全部消失
解决方案 »
- ???简单问题,如何实现让rlTreeView1背景图自动伸展???
- 如何读取dll里面的图片资源
- 新发布的共享软件,反正不是为了赚钱做广告。。。。。。
- 我安装了一个控件(Ehlib32),请问现在怎么才能彻底删除它?在线等!
- delphi能把word文档转化成图片格式吗?能的话请指教
- 我想从0开始学习Delphi,我没有任何语言基础!该怎么学?
- 关于DELPHI的安装(各位,还是没有解决)
- 500分求hook解答
- 问题:在delphi中怎样的到EXCEL表格的记录条数?分全给!
- 在一个应用程序中能不能让主窗体始终置于所有子窗体的上层
- BDE 连接数据库实例名问题,高分相送,急!!!!
- Socket mscomm 有什么区别啊 都用在哪方面的?
(UpperCase(mainmenu1.Items[i].Name) <> UpperCase('MENU_USER'))---------------------------------
name???
name是菜单的名字如果不是动态创建的菜单,没有任何问题
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;