添加一个ActionList1,添加StandardAction里的Search里的Search里的SearchFind 添加一个FindDialog1到界面上 假设Memo1的PopupMenu为PopupMenu1 在里的一个新建空白菜单设置为SearchFind1Memo1的HideSelection一定要设为False  

open(widget)：在指定的控件下方打开弹出菜单。widget参数为要显示菜单的控件my_menu=PopupMenu()my_menu.open(my_button)dismiss()：关闭弹出菜单。my_menu.dismiss()add_option(text,callback)：向菜单中添加一个选项。text参数为选项的文本。callback参数为选

只有在右击节点时才会触发privatevoidtreeList1_MouseDown(objectsender,MouseEventArgse){if(e.Button==MouseButtons.Right)

效果要求:点击树形结构不同的行,弹出不一样的下拉菜单窗体设计:  数据库设计: 实际效果: 核心代码:procedureTForm1.PopupMenu1Popup(Sender:TObject);