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
相关问答：
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
有什么构想讨论一下。
这类东西主要是人气和界面花哨,技术上没什么难点.
这我知道，那技术上的呢？有没有构想一下该怎么设计？主要是delphi自身能不能够完成，若同时大量客户登陆，反应速度如何等等。
引用
......
这个属性怎么用啊？
我想实现如下功能：在dbgrideh中按下箭头，如果当前指针停留在相应列上，就列出预设的几个选项，供用户选择（与combobox）类似
请问，用dropdownlist可否实现？
新手，帮你UP下 人气。
......
