黑月创建多窗口后销毁主窗口而不奔溃

易语言 2020-07-21 00:09:40

黑月创建多窗口后销毁主窗口而不奔溃

.子程序 窗口_消息回调, 整数型, , 返回值:-1默认调用,其它则拦截
.参数 hWnd, 整数型
.参数 uMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.判断开始 (uMsg = #事件_销毁)
' 托盘图标.删除托盘图标 ()
PostQuitMessage (0) ' 如果为主窗口销毁,则退出消息循环结束程序.
.判断 (uMsg = 16)
.如果真 (信息框_Ex (hWnd, “老衲例子写的这么辛苦,你真的要” + #换行符 + “退出程序吗?”, #确认取消钮, , #询问图标, , , 真, , { “手贱了”, “是的” }, 2, , , , , , , , #特效_进入_扩展, #特效_退出_渐隐) = #确认钮)
返回 (-1)
.如果真结束
返回 (0)
.判断 (uMsg = 1024 + 1234)
.判断开始 (lParam = #事件_左键放开)
调试输出 (hWnd)
.判断 (lParam = #事件_右键放开)
' 菜单1.弹出菜单 (hWnd)
.判断 (uMsg = #事件_进入组件)
调试输出 (uMsg)