动态产生菜单(84分)

清

清风轻拂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #1

菜单项保存在数据表中，每次打开时读出动态产生.
数据表
ID号 菜单内容 父菜单ID号
1 文件 //空表示一级菜单
2 设置 1 //二级菜菜单
3 编辑
4 复制 3
5 粘贴 3
6 设置页面 2
7 设置格式 2 //三级菜单
8 退出 1
产生效果:
文件 编辑
设置 设置页面 复制
设置格式 粘贴
退出
我已经搜索过，但没有满意答案，以上只是大概的样子，实际上要复杂得多，有四级五级菜单等,
怎么实现它?谢了,我所有的分数(84分)

 

清

清风轻拂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #2

没有讲清楚吗?怎么没大侠回答？分太少?
急,在线等待,明天要交差了

 

L

liuchengr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-02

• #3

执行如下
Select * from 菜单表 order by 父菜单ID号 DESC
语句，查询出数据
DataSet.First
while not DataSet.eofdo
begin
//根据父菜单ID号，找到相应的菜单
ParentMenu := FindMenu(父菜单ID号) ;
　　
CreateMenu(Parent);// 根据记录创建相应的菜单
DataSet.Next;
end;

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-02

• #4

参考:
http://www.delphibbs.com/keylife/iblog_show.asp?xid=5366
最后一小节:
DevExpress Bar的动态菜

 

Y

yf168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-02

• #5

这么菜的问题,没人愿意回答
看看 TMenuItem;
-----看看liuchengr说的,有道理,
有空多看看api涵数,

 

X

xj2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-02

• #6

会了吗？

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-02

• #7

作者: Mike Cropsey。
示范如何动态产生 Menu Item，并动态指定各 Menu Item 按下後的事件过程
http://www.csdn.net/dev/delphi/Samples/DMENU.ZIP

 

K

kl78pgy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-03

• #8

我以前做过，跟你说思路吧！
数据遍历：根据菜单级别循环增加．
就是说：先查找是否有下级菜单，如果有下级就循环查找，无就添加菜单．
到时候我给你辕马，我在出差！

 

清

清风轻拂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-28

• #9

多人接受答案了。