Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:13:20
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.

赞