目前效果:
http://img.blog.csdn.net/20131125180003796?water/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvc2R1ZHViaW5n/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEasthttp://img.blog.csdn.net/20131125180315609?water/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvc2R1ZHViaW5n/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEast
http://img.blog.csdn.net/20131125180003796?water/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvc2R1ZHViaW5n/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEasthttp://img.blog.csdn.net/20131125180315609?water/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvc2R1ZHViaW5n/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEast
窗体或控件都提供有PopupMenu属性,把popupmenu1指定给form或者控件的Popupmenu属性就可以了,什么弹出消息都自动处理
popupmenu1.trackbutton:=tbRightButton; // 就是右键弹出,根本不需要倒腾什么WM_RBUTTONUP消息之类的然后啥都不用管了,什么捕获鼠标坐标都是多余的,菜单弹出后,点击其他菜单之外的其他地方也会自动关闭popupmenu
这些本来就是popupmenu控件自动能完成的,你只要把popupmenu控件指定给form的popupmenu属性就得,啥都不用管
setforgroundwindow(application.handle);