read.txt

vfp 源码,XP菜单

在控件的init增加：
*ThisForm.ctDropMenu1.ClearItems     &&清除弹出菜单
THISFORM.CTDropMenu1.MarginFillType=1  &&定义菜单风格，0～10，之前可能要设定好各种颜色
nIndex = ThisForm.ctDropMenu1.AddItem("菜单项目1", 0, 1)  &&增加菜单项,第一个0表示菜单可用；第二个1表示第一级菜单（依次类推）
*ThisForm.ctDropMenu1.SetItemImage( ThisForm.ctImage1.object.ListImage( 1 ), nIndex )  &&菜单项的图标
*
nIndex = ThisForm.ctDropMenu1.AddItem("菜单项目2", 0, 1)
*ThisForm.ctDropMenu1.SetItemImage( ThisForm.ctImage1.object.ListImage( 2 ), nIndex )
.
.
.

在需要弹出菜单的事件处，增加：
ThisForm.ctDropMenu1.DropMenuAtCursor   &&在当前鼠标位置弹出菜单

在控件的Itemclick事件增加执行语句，比如：

DO CASE
   CASE nitem=1  &&nitem是返回的菜单编号，可以用messagebox测试查看每个菜单项对应的nitem值。
        keyboard("{ctrl+C}")  &&复制 
   CASE nitem=2
        keyboard("{ctrl+V}")  &&粘贴
   CASE nitem=3
        keyboard("{ctrl+X}")  &&剪切
   CASE nitem=4
        keyboard("{ctrl+A}")  &&全选
   CASE nitem=7
        THISFORM.Release         
ENDCASE