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
相关问答：
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
接收到的文本内容是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 的 ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
小弟我用ADO连接SQL server 2000数据库，然后在DBGrid中显示，现在想把在DBGrid中查询到的数据iPlot作图，请问如何实现在DBGrid中的数据读取，读出的数据是STRING类型的，如何有效的转变成数据库中所存储的DOUBLE类� ......
