hur.cn - 华软网

 热门搜索

急急急 哪位帮我看一下一个简单的代码??

  作者:未知    来源:网络    更新时间:2018/6/13
这段代码是界面变成托盘图标之后,右击的时候弹出的菜单出现异常即菜单跑道了屏幕的左上角而并没有出现在鼠标点击的位置啊!!!
Choose Case lparam 
Case WM_LBUTTONDBLCLK // 双击
  wf_RemoveFromTray() //删除图标、释放资源
  //加载新图标
  wf_AddToTray('123.ico', handle(this), "456") 
                    This.Show() // 显示窗口 
                this.windowstate=normal!     
CASE WM_RBUTTONUP // 右键选择 
  This.Move ( -This.Width -10, -This.Height - 10) 
  This.Show ( ) 
                    this.setfocus()
  //在鼠标位置弹出菜单
     lm_popup=create m_popup 
  li_X=pointerx()
  li_Y=pointery()
       lm_popup.m_item.PopMenu(li_X,li_Y) 
      if Isvalid(this) then destroy lm_popup
    end choose 

------华软网友回答------
好象是遇到过这样的问题。
印象中,代码不是这里的错误,是最小化处的。应该是少个return 1
------华软网友回复------
上面的朋友你好:
    能不能说的具体一些,你说的哪个"return 1"是不是在主窗口的“resize”里,我已经试过了,还是不可以啊!
    我的QQ:414868590
    恳请能多交流一下 问题一旦结局立刻放分
------华软网友回复------
This.Move ( -This.Width -10, -This.Height - 10) 
这句有什么用的?是不是就是这句影响了弹出菜单的位置?
------华软网友回复------
楼上的朋友 不是哪个地方的问题 以前都检查过了 不是这句话出了问题
还请多多指教啊
多谢了
------华软网友回复------
解决过这个问题,要例子不?留mail
------华软网友回复------
楼上给俺发个例程,谢谢
leio88@126.com
------华软网友回复------
最小化的时候,应该有
If commandtype=61472 Then

End If 
这个过程吧。return 1 应该加在里面
------华软网友回复------
li_X=parentwindow( ).pointerx()
li_Y=parentwindow( ).pointery()

------华软网友回复------
这个问题我知道,我的就这样。要想程序在托盘上显示菜单,就不能将窗口最小化,只能隐藏。
在窗口的自定义的事件pbm_syscommand事件里的代码这样改一下。如果你有用的与我的例子一样的话,那定义的名称是command
if commandtype=61472 or commandtype=61536  then//
   this.hide()
return 1
else
return 1
end if

//61536 关闭命令:点击ControlMenu的关闭按钮,或其他关闭命令,Alt+F4,不包含Close()命令在内
//61488 最大化命令:点击ControlMenu的最大化按钮
//61472 最小化命令:点击ControlMenu的最小化按钮
//61448 改变大小
//61458 点击击标题栏
//61490 最大化时双击标题栏
//61730 正常大小时双击标题栏
//61587 点击右上角控制菜单时
//61456 选择控制菜单的移动时
//61696 Alt+Space


------华软网友回复------
在网上有好多例子的,可以找一找。
------华软网友回复------
li_d_s(我是小鬼-日货?送我都不要,哪怕是丰田和日产的轿车)
   你好
   不知道你还会浏览这个帖子,我的email:g_ruby@126.com
   多谢了
------华软网友回复------
学习
ing
------华软网友回复------
li_d_s(我是小鬼-日货?送我都不要,哪怕是丰田和日产的轿车)

给我发一个
saiche05@163.com
------华软网友回复------
li_d_s(我是小鬼-日货?送我都不要,哪怕是丰田和日产的轿车)
    你好啊
    我们都在等你的消息那
    你是不是出差了啊?
    抽空给我们传一下,可以吗?
------华软网友回复------
楼上的都没收到?我已经收到了.
没收到的可以到我的信箱去下.
leio88@126.com
密码:leio88(请勿修改)
------华软网友回复------
leio((郁闷中...)) 你好
   我们这里真实天堂啊
   大家都是互相尽力帮忙
   我爱csdn
哈哈哈哈
------华软网友回复------
我也有遇到上述问题!学习了!SS      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。