TMainMenu与TPopupMenu(100分)

S

siking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-04

• #1

TMainMenu 如下
文件 编辑 格式
新建 复制
打开 粘贴
保存 删除
退出 查找/替换
想把 TMainMenu中 '文件'及其子项的菜单项动态赋值给TPopupMenu
大家给点指示吧

 

O

onyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-04

• #2

你的意思是 TPopupMenu 和TMainMenu 菜单内容要一致？？？
用actionlist就好了哎

 

Z

zybzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-04

• #3

popupmenu1.Items.Add(mainmenu1.Items[0]);

 

S

siking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-04

• #4

to
zybzhen
发生 Menu inserted twice的错误

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-05

• #5

var
mi:TMenuItem;
begin
mi:=MainMenu1.Items[0];
MainMenu1.Items.Delete(0);
PopupMenu1.Items.Add(mi);
end;

你代码要么就用全小写 要么就单词首字母大写。mainmenu1和Items.Add这样混合写有意思么？

 

S

siking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-05

• #6

to 地质灾害:
能不能不MainMenu1.Items.Delete
可是不要这句话就报Menu inserted twice

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-05

• #7

var i,k:integer;

begin
popupmenu1.Items.Clear;
for i:=0 to mainmenu1.Items[0].count-1do
begin
popupmenu1.Items.Add(NewItem(mainmenu1.Items[0].items.caption,0,False,True,mainmenu1.Items[0].items.ONclick,0,'MenuItem'+inttostr(i)));
end;

你测试一下，应该没问题

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-05

• #8

问题解决,可以给分了!![]

 

S

siking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-16

• #9

多人接受答案了。