PopupMenu介绍

最新推荐文章于 2025-03-11 15:35:30 发布

weixin_30797199

最新推荐文章于 2025-03-11 15:35:30 发布

阅读量65

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/mingdep/archive/2011/10/31/2230168.html

关于动态创建PopupMenu的问题

http://topic.youkuaiyun.com/t/20040825/09/3306672.html

动态创建菜单
var
mmiTemp:TMenuItem;
begin
mmiTemp:=TMenuItem.Create();
mmiTemp.Caption:= '标题 ';//
mmiTemp.OnClick:= actLoadExecute;//设定action
PopupMenu2.Add(mmiTemp);//加入到上层的菜单
end;

其实我们可以使用一种更快的方法达到同样的功能, 但使用很少的代码, 那就是用NewLine和NewItem, 看看下面的例子, 是不是很简单?
PopupMenu1 := TPopupMenu.Create(Self);
with PopUpMenu1.Items do
begin
Add(NewItem('First Menu',0,False,True,MenuItem1Click,0,'MenuItem1'));
Add(NewItem('Second Menu',0,False,True,MenuItem2Click,0,'MenuItem2'));
Add(NewItem('Third Menu',0,False,True,MenuItem3Click,0,'MenuItem3'));
Add(NewLine); // 增加一个分割棒
Add(NewItem('Fourth Menu',0,False,True,MenuItem4Click,0,'MenuItem4')); end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbRight then
PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);

end;

转载于:https://www.cnblogs.com/mingdep/archive/2011/10/31/2230168.html