在 Screen 中添加一自定义非可视类的实例（设计该类时，在其 RightClick 中写执行菜单方法）。并使用代码绑定 Screen 的 RightClick 事件到自定义非可视类实例的 RightClick 。

绑定操作，自 VFP8 及其以后版本提供。详细信息，请参看帮助中的相关信息。

[quote]
作者：wuzhouhong
专家分：8900

 会员信息
 发短消息  
 所属BLOG 发表时间：2007-8-29 14:25:00    [回复]  [引用]  [选此帖为最佳答案]  
6 楼  
使用bindevent()动态绑定一个程序。


例如：
oRightClick=NEWOBJECT("MyResize")
BINDEVENT(_SCREEN,"Resize",oRightClick,"Resize")    && 增加屏幕的Resize事件


DEFINE CLASS MyResize AS Session
    PROCEDURE Resize
        ****
    RETURN
ENDDEFINE
 
quote]