TC菜单式下拉动态界面,有码,有货,有注释,有动画!..

460071560

的撒杜甫的发阿斯蒂芬阿斯蒂芬撒旦

rxuehao

这么早的？

bestkakkoii

菜单

hao2005286

666666

3256345

看看

lnyksywxj

11111111111

传说中的大夫

6666666

gsqixi

学习系

ew001

TC菜单式下拉动态界面

156444179

功能 主窗口_消息路由(句柄,消息,w参数,l参数,时间,x坐标,y坐标)
    变量 表格句柄=控件获取句柄("表格_属性点数据")
    如果(句柄==表格句柄 && 消息==515)//左键双击
        变量 选中项=右键菜单弹出("取消|启动|停止")
        调试输出(选中项)
        选择(选中项)
            条件 0
            //选中取消项
            条件 1
            //选中启动项
            条件 2
            //选中停止项
        结束
    结束
结束

功能 右键菜单弹出(选项内容)
    变量 总选项数组
    变量 TPM_RETURNCMD =#0100
    变量 TPM_RIGHTBUTTON =#0002
    变量 TPM_LEFTBUTTON =#0000
    变量 TPM_RIGHTALIGN =#0008   
    变量 TPM_TOPALIGN =#0000

    变量 选项数量 = 字符串分割(选项内容,"|",总选项数组)//分割传过来的选项内容   
   
    变量 菜单句柄=动态库调用("user32.dll","int","CreatePopupMenu") //创建弹出式菜单
    如果(菜单句柄==0)
        返回 0 //菜单创建失败就直接返回0
    结束
   
    遍历(变量 i=0;i<选项数量;i++)
        //下面是增加菜单的item(理解成选项吧)
        动态库调用("user32.dll","int","AppendMenuA","int",菜单句柄,"int",0,"int",i,"char *",总选项数组[i])
    结束  
   
    变量 x,y
    鼠标获取坐标(x,y)   
    //弹出生成好的菜单,并返回你点击的选项,返回选项id.从上往下从1开始递增
    变量 ret=动态库调用("user32.dll","int","TrackPopupMenu","int",菜单句柄,"int",TPM_RIGHTALIGN+TPM_TOPALIGN+TPM_LEFTBUTTON+TPM_RIGHTBUTTON + TPM_RETURNCMD,"int",x,"int",y,"int",0,"int",窗口获取自我句柄(),"int",0)
   
    //销毁菜单(菜单点击完成后都是要关闭的)
    动态库调用("user32.dll","int","DestroyMenu","int",菜单句柄)
   
    返回 ret
结束