delphi菜单控件的使用问题 简单问题。
我想知道如何表示一个子菜单
比如 文件->打开
我是要循环根据权限表设置菜单的显示属性。
可循环时发现比如 menuitem.item.count数量是跟菜单的数量
设置这些没问题。
不过我要设置一个根菜单下面的子菜单如何设置。
我说的根菜单 类似ie的 文件 编辑 查看 搜藏夹 等
我说的子菜单 类似ie的 文件 根菜单下的 另存为 页面设置 打印 退出 等
谢谢各位
var
A：TMenuItem;
begin
A := TmenuItem.create(nil);
A.caption := 'a';
menuitem.items[0].add(A) 向第一个根菜单下面添加子菜单；
end;
呃 我不是添加子菜单 我是要操作子菜单
比如设置某个子菜单的属性
我不知道如何表示子菜单 所以设置不了。
被你搞晕了
给个例子你参考吧，也不知道是不是你要的
Delphi(Pascal) code:
var
i: Integer;
begin
//MainMenu为主菜单
for i := 0 to MainMenu.Items.Count - 1 do
MainMenu.Items[i].Visible := false;
Query.Open; //权限列表，假设从数据库取出在Query数据集中，Query可能是ADOQuery或其它数据集控件
while not Query.Eof do
for i := 0 to MainMenu.Items.Count - 1 do
begin
//这里假设权限字段名为PowerID，其存放内容和菜单名对应
if UpperCase(Trim(Query.FieldByName('PowerID').AsString)) = UpperCase(MainMenu.Items[i].Name) then
Mai
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
