今日看到一个帖子问：如何在托盘图标实现象window开始菜单中菜单左侧的图片效果。

开发技术指南» 文章正文

引言：今日看到一个帖子问：如何在托盘图标实现象window开始菜单中菜单左侧的图片效果。

·delphi create http link on your form »显示摘要«

摘要：there are at least 3 ways to create an http link on your form, ill describe 2 of them here. terms of agreement: by using this article, you agree to the following terms... 1) you may use this article i......

·[原创]delphi中scriptcontrol的高级应用（二） »显示摘要«

摘要：delphi中scriptcontrol的高级应用（二）5、delphi中使用javascript的base64的加解密算法搜索google：javascript base64加密就会找到很多base64加密的代码，以下就是本人搜索到的一段代码（以下代码版权归其原作者）：var base64encodechars = "abcdefghijklmnopqrstuvwxyzabcdef......

如何在托盘图标实现漂亮的菜单

今日看到一个帖子问:如何在托盘图标实现象window开始菜单中菜单左侧的图片效果.于是自己动手做了一个.

我的思路是不用菜单,用窗体来实现（我想不仅是delphi其他编程语言应该一样可以）. 【程序编程相关:枚舉並設置界面的Caption之多語言方】

【推荐阅读:防止全局hook入侵Delphi版，20】

例子中我用到了一个第三方控件:trayicon用来显示动态托盘图标（下载地址:asp?articleid=1985">http://2ccc.com/article.asp?articleid=1985）.请看我如下步骤: 【扩展信息:使用HOOK随心监视Windows 】

1.新建立一个project,同时建立两个窗体form1与iconform.其中第二个用来显示托盘图标菜单.

2.各放置一个trayicon.imagelist与applicationevents控件于form1上.

3.加入合适的图标到imagelist,然后在trayicon的属性编辑器中的icon项关联imagelist.（如果你加入了多个图标,你可以把trayicon的animate设置为true,可以看见动态图标,trayicon控件包里有demo）

4.将trayicon的popupmenuon属性设置为imnone;visible设置为true.

5.在trayicon的mouseup事件中写:

var

apoint: tpoint;

begin

getcursorpos(apoint);

if (screen.activeform <> nil) and (screen.activeform.handle <> 0) then

... 下一页

·找vb,delphi高手开发功能简单的进销存软件! »显示摘要«

摘要：开发工具vb+access or delphi+access功能基本分:一、库存管理：二、进货管理：三、销售管理：四、支出管理：五、会计统计管理：六、用户权限管理：这六大块,由于是私单,价格不是很高,若有兴趣的高手请与我联系,我的qq是:12603811些信息有效期为05-03-21````05-03-36 ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：