下载了没有？下载的zip包里绝大部分文件都是用于演示示例用的，真正需要只有类库文件(vcx_Tool.vcx/vct)，常量声明(两个.h文件)，版本说明(about_chs.txt)
就你的情况，如果仅仅使用（不对类库做任何修改）的话，只要复制vcx_Tool.vcx/vct这两个文件过来即可
因为是对象化菜单，所以使用和控制都非常简单，把你的rightsystraymenu.prg改成下面这样就行了

Local oo, nn

oo = NewObject('PopMenu', 'vcx_tool.vcx')
oo.Clear()
oo.Additem("软件设置")
oo.Additem("\-")
oo.Additem("帮助")
oo.Additem("关于")
oo.Additem("\-")
oo.Additem("还原")
oo.Additem("\-")
oo.Additem("退出软件")

nn = oo.Show()

Do case
Case nn == 1
    MessageBox("软件设置",0,"")
Case nn == 4
    MessageBox("关于",0,"")
Case nn == 6
    Main.Show()
Case nn == 8
    Main.Release()
Otherwise
    *--
EndCase

下载了，按照它里面的例子没有弹出菜单，我把你这个试下，如果我要把主菜单也换成这个菜单，该如何用？谢谢！

右键这个成功了！

大佬！研究了一天菜单，再请教您一些问题：
1、如何在顶层表单中加入菜单？就像Vfp菜单一样
2、如何像Vfp菜单一样设置跳过？（我知道在Add方法Add(,,,,.F.)可以设置菜单不可用，但是如何控制满足条件可用，否则不可用？）
3、如何设置菜单打勾并取消？(加个0x08，就可以打勾，0x00取消打勾，但是跟第2点一样，我如何控制呢？就是点一下打勾，再点一下取消打勾？）
谢谢！

1. 从类名PopMenu可知，倦猫这个类主要是用于实现弹出菜单的，所以不大适合制作主菜单。不过项目中有个test的prg，作者做了些替换vfp菜单的尝试，可以借鉴下其方法
2. Add方法的 tvEnabled 参数允许表达式，也就相当于vfp菜单项的 not SKIP了，你可以将菜单项的此参数一个传入 "1=1"，另一个传入 "1=2" 试试
3. tnAddFlag参数传入0x08在我的电脑上没啥效果，并未出现check符号或图标，也就谈不上咋控制了

[此贴子已经被作者于2022-7-30 15:43编辑过]

谢谢！oo.Additem("软件设置",,.F.,0x08)就可以实现打勾了