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
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
用DEDE打开一个DLL，找到需要的函数了，但是显示的都是汇编代码，看不懂，恳请高手驻足帮忙啊！
是一个KEYPRESS响应函数，功能是在按下enter后判断输入的字符，我想按照自己的需求跳转，但是
找不到位置，高手 ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
要包含winsock2 而且详细些的。
那些使用控件的的书本就不要了，
希望买过这类书的朋友能推荐下自己觉得不错的。
来关注下。
Windows网络与通信程序设计(第2版)
蓝皮的是新版,虽然是中国人写的但是非� ......
