关于系统托盘图标的问题,Keywords:systray,menu

vcbacker 2001-07-02 04:01:29
就是点击一个systray上的icon以后,弹出一个菜单,
这没问题。
关键是当我点击其它地方(比如任务栏,其他程序等等)的时候,菜单不消失。
怪异阿,这段代码很easy,几乎是标准用法:
GetCursorPos(&pt);
CMenu menu;
CMenu* pPopup;
menu.LoadMenu(IDR_TRAYPOPUP);
pPopup=menu.GetSubMenu(0);
if(!pPopup) return;
pPopup->TrackPopupMenu(TPM_LEFTALIGN|TPM_LEFTBUTTON,pt.x,pt.y,this);
为何?哪里的问题?
...全文
199 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
cpufall 2002-03-28
  • 打赏
  • 举报
回复
gz
eEriEs 2002-03-21
  • 打赏
  • 举报
回复
sf
jwsup 2001-07-02
  • 打赏
  • 举报
回复
thks vcbacker(VC支持者) too.
jwsup 2001-07-02
  • 打赏
  • 举报
回复
爱你 panda_w(好想睡啊!):!

MSN也有次问题,所以没在意过。
vcbacker 2001-07-02
  • 打赏
  • 举报
回复
哇,高手呀,成功了!!!
我就有预感这样一定能行,呵呵,
多谢老大,
you are handsome,you are beautiful~~~~~
panda_w 2001-07-02
  • 打赏
  • 举报
回复
加上如下代码
...
POINT p;
GetCursorPos( & p );
SetForegroundWindow();
m_Menu.TrackPopupMenu( TPM_LEFTALIGN | TPM_RIGHTBUTTON, p.x, p.y, this );
jwsup 2001-07-02
  • 打赏
  • 举报
回复
呵呵,挺细心。
我没跟踪过。但偶尔也出现过类似问题,而且是主彩旦。我想不应该是程序问题。

不知你碰到过没有:
按ESC键回在应用间跳动(象按了ALT+TAB)
CTRL+C拷贝后,当前应用居然没了焦点
......
vcbacker 2001-07-02
  • 打赏
  • 举报
回复
另:我也是win2k,oicq就没有这个问题。曾经出现过,但不是这么频繁。
vcbacker 2001-07-02
  • 打赏
  • 举报
回复
我再详细一点说明这个症状:

经常性的第一次点击菜单出不来,好像是闪了一下,立刻消失。
然后第二次点击肯定能够出来。
我跟踪的时候,TrackPopupMenu有时候竟然返回0表示失败?
Why???
jwsup 2001-07-02
  • 打赏
  • 举报
回复
程序应该没问题。我的WIN2K上,金山词扒/OICQ等都有次问题。
vcbacker 2001-07-02
  • 打赏
  • 举报
回复
不会吧,同样的系统环境,oicq就没这个问题。
GolemZ 2001-07-02
  • 打赏
  • 举报
回复
是windows的问题啦,有些商业软件也是如此现象。
SysTray控件用法详解 VB SYSTRAY 托盘图标 用VB6自带的systray.ocx控件实现托盘图标程序 : 补充: 然后在自己的VB程序中添加改控件(工程-部件-浏览)。   最好把这个ocx放到C:\WINDOWS\system32。   改控件的属性InTray属性用来设置是否显示在托盘中,True为显示在托盘,False为不显示。TrayIcon属性是在托盘中显示的图标式样。TrayTip属性是鼠标移到改控件上面显示的提示文字。如果要使程序最小化时显示到托盘,如下:   Private Sub Form_Resize()    If Me.WindowState = vbMinimized Then    cSysTray1.InTray = True    Me.Visible = False End If   End Sub   点击托盘图标后让程序显示出来,如下:   Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)    Me.WindowState = vbNormal    Me.Visible = True    cSysTray1.InTray = False    Me.SetFocus   End Sub '单击关闭不退出程序 Private Sub Form_Unload(Cancel As Integer) 主程序.Hide Cancel = False End Sub '单击关闭不退出程序 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = 1 主程序.Hide End Sub ’tui为窗体菜单-退出选项名称 Private Sub tui_Click()’快捷键设ALT+F1 End End Sub '注:"主程序"代表一个窗体(Form),窗体菜单-退出选项需设置快捷键ALT+F1 '这个控件有一个小小的问题,如果托盘菜单有退出选项,不能直接用"End 语句",否则在编译后运行期间用户选择退出后,操作系统会报错,以上使用发送按键方法避免出错 ,当然还有其他避免出错方法。

16,472

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • Web++
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧