Delphi菜单动态合并实例
菜单动态合并
实例说明
在程序中经常使用弹出菜单，并且一个窗体中可以存在多个弹出菜单。开发过MDI窗体的读者可能都知道，当MDI子窗体最大化时，子窗体和主窗体的菜单能够自动合并。只是怎么实现的呢？本实例将实现两个弹出菜单动态地合并成一个弹出菜单。实现效果如图1.2所示
图1.2菜单动态合并
技术要点
Delphi已经将弹出菜单封装为TPopupMenu组件，利用该组件中的Tiems对象可以操作菜单中的菜单项。该对象是TMenuItem类型，使用Add方法便可以像弹出菜单中添加菜单项，该方法原型如下：
procedure Add(Item:TMenuItem);
参数说明
item 添加的菜单项。在该例中这个参数是另外一个弹出菜单。
实现过程：
1.新建一个标准工程，创建一个窗体，默认主窗体的Name属性为From1.
2.在窗体中分别添加两个TbitBtn和TPopupMenu组件。
3.程序代码如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
PopupMenu1.Popup(Form1.Left+BitBtn1.Left,Form1.Top+BitBtn1.Top+BitBtn1.Height);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
PopUpMenu1.Items.Add(PoPupMenu2.Items);
ShowMessage('合并完毕');
BitBtn2.Enabled:=False;
end;
end.
