易语言弹出轨迹菜单源码

系统结构:弹出轨迹菜单_,取菜单_,取鼠标位置_,取子菜单句柄_,清除菜单_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_鼠标右键被放开
           |  |
           |  |------ _萧阳天_被选择
           |  |
           |  |------ _易语言_被选择
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   弹出轨迹菜单_
           |  |
           |  |---[dll]------   取菜单_
           |  |
           |  |---[dll]------   取鼠标位置_
           |  |
           |  |---[dll]------   取子菜单句柄_
           |  |
           |  |---[dll]------   清除菜单_

调用的DLL命令:

.DLL命令 弹出轨迹菜单_, 整数型, "user32.dll", "TrackPopupMenu", , 在屏幕的任意地方显示一个弹出式菜单
    .参数 菜单句柄, 整数型, , 弹出式菜单的句柄
    .参数 标志, 整数型, , 位置标志和鼠标追踪标志的组合，见下表
    .参数 横坐标, 整数型, , 这个点指定了弹出式菜单在屏幕坐标系统中的位置
    .参数 纵坐标, 整数型, , 这个点指定了弹出式菜单在屏幕坐标系统中的位置
    .参数 保留参数, 整数型, , 未使用，设为零
    .参数 窗口句柄, 整数型, , 用于接收弹出式菜单命令的窗口的句柄。应该使用窗体的窗口句柄——窗体中有一个菜单能象弹出式菜单那样接收相同的命令ID集
    .参数 矩形结构, RECT, , 用屏幕坐标定义的一个矩形，如用户在这个矩形的范围内单击，则弹出式菜单不会关闭。如单击弹出式菜单之外的任何一个地方，则会关闭菜单。可以设为NULL

.DLL命令 取菜单_, 整数型, "user32", "GetMenu"
    .参数 窗口句柄, 整数型

.DLL命令 取鼠标位置_, 整数型, "user32", "GetCursorPos"
    .参数 位置, 坐标_

.DLL命令 取子菜单句柄_, 整数型, "user32", "GetSubMenu"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 清除菜单_, 整数型, "user32.dll", "DestroyMenu"
    .参数 预删除的菜单, 整数型, , hMenu,欲删除菜单的句柄