如何合并popupmenu? ( 积分: 100 )

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-07

• #1

我在程序中需要动态的合并2个popupmenu，
即把2个popupmenu连在一起作为一个控件的popupmenu
这可以吗？

 

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-07

• #2

我在程序中需要动态的合并2个popupmenu，
即把2个popupmenu连在一起作为一个控件的popupmenu
这可以吗？

 

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-07

• #3

用.Item.Add()后，被加入的菜单成了Submenu，能否改成和原菜单同级的？

 

蛋

蛋炒饭

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-07

• #4

可以的，以下代码是把两个popupMenu合并后，作为Button1的PopupMenu

var
i: integer;
mni: TMenuItem;
begin
for i:= 0 to PopupMenu2.Items.Count - 1 do
begin
mni := TMenuItem.Create(nil);
mni.Caption := PopupMenu2.Items.Caption;
mni.OnClick := PopupMenu2.Items.OnClick;
if mni.Parent = nil then
PopupMenu1.Items.Add(mni);
end;

Button1.PopupMenu := PopupMenu1;
end;

 

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-07

• #5

这么复杂？
没有直接的命令吗？

 

Z

zhlwyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-07

• #6

楼主有意思
不要懒省事

 

D

dongy_143

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-07

• #7

楼主如果对Delphi有兴趣的话，可以对以上程序做修改；
但我认为楼上的程序还算简单...

 

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-19

• #8

接受答案了.