如何在控件里增加右键菜单？

Question

比如我们自定义一个 TmyEdit=Class(Tedit);想在 TmyEdit 默认加上 一个右键PopupMenu菜单，菜单里加上几个子按钮，写些
事件；
比如 ShowMessag('第1个默认右键按钮');ShowMessag('第2个默认右键按钮');
等等。
这个功能很容易实现,但是有一个问题,就是当使用TmyEdit 的时候,如果在它PopupMenu属性上设置了一个PopupMenu1,那么该菜单里的按钮就覆盖了TmyEdit控件里默认的按钮。如何让这两个菜单按钮相加，显示所有菜单按钮呢？也就说设置TmyEdit 的PopupMenu 属性后，要对它内部定义的PopupMenu没有影响。我前后尝试了三年多，仍然没有搞定。
我想覆盖其父类Tcontrol.SetPopupMenu 增加代码；
但是该函数不是虚函数，无法覆盖；希望朋友们给与技术支持。

Answer 1

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3278920