怎么这样加入菜单会出错!!!!!!(100分)

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #1

Item := TMenuItem.Create(nil);
Item.Caption := '测试';
PopupMenu1.Items.Add(Item); //PoP菜单
MnuTools.add(item); // MainMenu 里的一个菜单

我动态的加入菜单,"MnuTools"是一个TMenuItem变量！
如果把其中一行代码 "MnuTools.add(item);" 或 "PopupMenu1.Items.Add(Item);"
的代码册除！就不会出错，如果两个都有的话就会弹出“Menu inserted twice.”
这样的错误，好像是说菜单加入两次的意思。我现在就是想在“PopupMenu1”和
"MnuTools" 中加入同样的内容啊！

我也试了一下先把菜单加入“PopupMenu1”中再使用下面语句
MnuTools:=PopupMenu1.Items;
但，“MnuTools”下不会出现和"PoPupMenu1"同样的菜单，没有一点的变化！
怎么办！

请大家帮帮忙！多谢!

 

M

mdc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #2

动态生成菜单：
PopUpitem:=TMenuItem
PopUpitem:=TMenuItem.Create(Self);
PopupItem.Caption:='XXX';
PopUpItem.GroupIndex:=0;
PopUpItem.OnClick:=OcbPopupHandler;
Mnupop.Items.Add(PopupItem);
需要在type里再声明一次。
调用的例子如下：
procedure TFrmMain.OcbPopupHandler(Sender: TObject);
begin
if (sender as TMenuitem).GroupIndex=0 then
begin
....
end;
end;
MnuTools 我不知道你这个是定义在哪里的，你把代码详细贴一下吧。

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #3

帮助里面应该有例子

 

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #4

"MnuTools" 在type里声明了的！

如果
Item := TMenuItem.Create(nil);
Item.Caption := '测试';
PopupMenu1.Items.Add(Item); //PoP菜单
PopupMenu2.Items.Add(Item); //PoP菜单

也会出错

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #5

你必须Create两次才能Add两次。多加两行代码而已。

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #6

Item只有一个，不能在两个地方出现

 

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #7

我是有好多菜单要创建啊，如果每一个都要创建两次那不是要很多代码！

有解决方法吗？

 

S

shanys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #8

gz

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #9

有一个办法可以让你只用做一个MainMenu，把MainMenu里的一项当作PopupMenu用：

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
begin
if Button = mbRight then
begin
GetCursorPos(pt);
TrackPopupMenu(MnuTools.Handle, TPM_LEFTBUTTON or TPM_LEFTALIGN,
pt.X, pt.Y, 0, Handle, nil);
end;
end;

 

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #10

多人接受答案了。