DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lixuan123
今日帖子: 0
在线用户: 4
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 johnsons (john) ★☆☆☆☆ -
普通会员
2003/9/2 16:46:46
标题:
关于在任务栏显示程序图标 浏览:1779
加入我的收藏
楼主: 最近写了一个程序,程序极小化后会在任务栏生成一个图标,用鼠标点击图标后弹出一个菜单(在DELPHI设计的popupmenu),现在有一个问题:当菜单弹出时,如果把鼠标移到桌面点击鼠标(也就是说不在弹出菜单上点击鼠标,而在其他地方点击鼠标)菜单不消失,请问这个问题如何解决。
----------------------------------------------
能够想到,就一定会实现!
作者:
男 skertone (奇奇怪) ★☆☆☆☆ -
盒子活跃会员
2003/9/3 15:22:07
1楼: 我也没解决,盼有人快复

哪个菜单不点一下是消失不了的 呵呵
----------------------------------------------
按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片
作者:
男 30896186 (缘来一家人) ★☆☆☆☆ -
盒子活跃会员
2003/9/3 16:36:55
2楼: 本版有实现此功能的第三方控件!
----------------------------------------------
-
作者:
男 skertone (奇奇怪) ★☆☆☆☆ -
盒子活跃会员
2003/9/4 8:30:10
3楼: 一定要用第三方控件吗?有没好点的办法,不用控件来实现
----------------------------------------------
按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片
作者:
男 tranke (踩到一条鱼) ★☆☆☆☆ -
普通会员
2003/9/4 13:04:32
4楼: 我也想知道的
CoolTrayIcon好像也不行的!
----------------------------------------------
Delphi菜鱼...
请多指教!!!
作者:
男 goodsuperstar (superstar) ★☆☆☆☆ -
盒子活跃会员
2003/9/4 17:26:09
5楼: 这个问题我看遍了文档也没有解决:(真是失败~~
结果还是用了一个大哥大的控件,叫systray,还支持动态图标,问题也解决了,看了一下pas文件~~~~~~~~

说真的,我不懂-_-~~~~~~~~~~~
----------------------------------------------
幼儿园的时候我不谈恋爱,因为不知道什么是贼
小学的时候我不谈恋爱,因为知道没有贼心也没有贼胆
初中的时候我不谈恋爱,因为有贼胆没贼心
高中的时候我不谈恋爱,因为有贼心没贼胆
大学的时候我不谈恋爱,因为有了贼心,也有了贼胆,贼却没了
作者:
女 dgt (dgt) ★☆☆☆☆ -
普通会员
2003/9/4 18:55:41
6楼: 请问程序的小图标是怎样到任务栏的?代码是什么?
----------------------------------------------

竹因虚受益
松以静延年
 http://zhd21.533.net/
作者:
男 johnsons (john) ★☆☆☆☆ -
普通会员
2003/9/9 11:46:42
7楼: dgt你到网上去查一下吧,应该有的。
----------------------------------------------
能够想到,就一定会实现!
作者:
男 skertone (奇奇怪) ★☆☆☆☆ -
盒子活跃会员
2003/9/9 16:35:58
8楼: uses ShellAPI;

var
  nid:   TNotifyIconData;  
  
 

  with nid do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Handle;
    uID := TrayIconID;
    uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP;
    uCallbackMessage := WM_USER + TrayIconID;
    hIcon := LoadIcon(HInstance,'MAINICON');
    StrPCopy(szTip,'xxxxxxxxx');
  end;
  Shell_NotifyIcon(NIM_ADD,@nid);

大体是这样的
  填充一个nid的结构
 Shell_NotifyIcon(NIM_ADD,@nid);来增加
 NIM_Modify 修改 NIM_Delete 删除  

----------------------------------------------
按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片
作者:
男 regspy (幻影之芯) ★☆☆☆☆ -
盒子活跃会员
2004/3/20 9:16:56
9楼: 晕了,怎么一说一代码,都是2个字,控件!!,不会自己想办法吗???


菜单弹出时
        SetForegroundWindow(self.Handle); 

----------------------------------------------
---------------------
世间万物空如幻
来去此间只留影
---------------------
幻影之芯(rEgSpy/CGG) 

CGG WEB http://Www.CGG.Name
作者:
男 Giver (Giver) ★☆☆☆☆ -
盒子活跃会员
2004/3/20 11:10:58
10楼: 不要这么强烈的反对控件嘛,控件没有错,它可以帮助你更好更快的完成要做的工作,只是如果可以看懂控件的代码就更好了,我们的学会学习
----------------------------------------------
http://www.gaiwei.com
作者:
男 regspy (幻影之芯) ★☆☆☆☆ -
盒子活跃会员
2004/5/7 17:12:03
11楼: 菜单弹出前加入这个代码
        SetForegroundWindow(self.Handle);
----------------------------------------------
---------------------
世间万物空如幻
来去此间只留影
---------------------
幻影之芯(rEgSpy/CGG) 

CGG WEB http://Www.CGG.Name
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行68.35938毫秒 RSS