|
精易的没有写挂接事件,只能自己处理托盘消息
<火山程序 类型 = "通常" 版本 = 1 />
方法 我的主窗口_组件消息过滤 <接收事件 类型 = 整数 注释 = "当用户组件接收到任何Windows消息在其被实际处理前,本事件被发送."
返回值注释 = " 返回0表示允许该Windows消息继续向后传递并处理,返回1表示该Windows" 返回值注释 = "消息已经被处理且无需后续处理.">
参数 来源对象 <类型 = 我的主窗口 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
参数 窗口句柄 <类型 = 变整数 注释 = "提供消息所对应的本组件窗口句柄(HWND)">
参数 消息值 <类型 = 整数 注释 = "提供消息的具体值">
参数 消息参数1 <类型 = 变整数 注释 = "提供消息所附带的参数1的值">
参数 消息参数2 <类型 = 变整数 注释 = "提供消息所附带的参数2的值">
参数 消息地址 <类型 = 变整数 注释 = "提供消息的具体 MSG* 地址指针,用作备用.">
{
如果 (消息值 == 50019)
{
如果 (消息参数2 == 514)
{
调试输出 ("精易托盘类: 托盘左键放开")
}
如果 (消息参数2 == 517)
{
调试输出 ("精易托盘类: 托盘右键放开")
弹出托盘菜单 (菜单类1, )
}
}
返回 (0)
}
|
|