有关右键菜单添加菜单项的操作

最新推荐文章于 2024-01-29 12:36:05 发布

原创最新推荐文章于 2024-01-29 12:36:05 发布 · 532 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用Delphi创建上下文菜单的例子。通过代码实现了菜单项的动态添加，并指定了菜单项的点击事件处理函数。此外，还定义了菜单出现的位置及如何通过PopupMenu方法显示菜单。

var //m:tmenuitem ;//使用变量只能添加一个菜单项 p: tpoint ; begin self.PopupMenu1.Items.Clear; //添加子菜单 self.PopupMenu1.Items.Add(tMenuItem.Create(self)); self.PopupMenu1.Items[self.PopupMenu1.Items.Count-1].Caption := '123' ; self.PopupMenu1.Items[self.PopupMenu1.Items.Count-1].OnClick := amenuclick ; //aMenuClick是一个预先定义好的菜单动作事件。 self.PopupMenu1.Items.Add(tMenuItem.Create(self)); self.PopupMenu1.Items[self.PopupMenu1.Items.Count-1].Caption := '456' ; self.PopupMenu1.Items[self.PopupMenu1.Items.Count-1].OnClick := amenuclick ; //定义显示的位置 p.x := self.SpeedButton8.Left ; p.y := self.SpeedButton8.Top + self.SpeedButton8.Height -1 ; P:=self.SpeedButton8.Parent.ClientToScreen(p) ; //显示菜单 self.PopupMenu1.Popup(p.X,p.Y); end;