如何在托盘图标实现漂亮的菜单
2005-03-23 13:16
441 查看
今日看到一个帖子问:如何在托盘图标实现象window开始菜单中菜单左侧的图片效果。于是自己动手做了一个。
我的思路是不用菜单,用窗体来实现(我想不仅是delphi其他编程语言应该一样可以)。
例子中我用到了一个第三方控件:Trayicon用来显示动态托盘图标(下载地址:http://2ccc.com/article.asp?articleid=1985)。请看我如下步骤:
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
SetForegroundWindow(Screen.ActiveForm.Handle);
if iconform.Width + apoint.X <= screen.Width then
iconform.left:=APoint.X
else
iconform.Left:=APoint.X - FORM2.Width;
iconform.Top:=apoint.Y - FORM2.Height;
iconform.Show;
end;
6.在applicationevents的deactivate事件中写:
iconform.Close;
7.在iconform上放置两个标签label_restore,label_exit
8.在iconform的deactivate事件中写: close;
9.在label_restore的click事件中写: form1.trayicon1.Restore;
在label_exit的click事件中写: Application.Terminate;
10.至此,编程工作已经完成,运行后点击托盘图标看看效果如何。你可以在iconform上作你想作的事情,不用说图片,在form上你可以作的事情就太多了。
如果你有更好的方法或思路,欢迎讨论:QQ:56059327,MSN:kermin@hotmail.com.
谢谢!
我的思路是不用菜单,用窗体来实现(我想不仅是delphi其他编程语言应该一样可以)。
例子中我用到了一个第三方控件:Trayicon用来显示动态托盘图标(下载地址:http://2ccc.com/article.asp?articleid=1985)。请看我如下步骤:
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
SetForegroundWindow(Screen.ActiveForm.Handle);
if iconform.Width + apoint.X <= screen.Width then
iconform.left:=APoint.X
else
iconform.Left:=APoint.X - FORM2.Width;
iconform.Top:=apoint.Y - FORM2.Height;
iconform.Show;
end;
6.在applicationevents的deactivate事件中写:
iconform.Close;
7.在iconform上放置两个标签label_restore,label_exit
8.在iconform的deactivate事件中写: close;
9.在label_restore的click事件中写: form1.trayicon1.Restore;
在label_exit的click事件中写: Application.Terminate;
10.至此,编程工作已经完成,运行后点击托盘图标看看效果如何。你可以在iconform上作你想作的事情,不用说图片,在form上你可以作的事情就太多了。
如果你有更好的方法或思路,欢迎讨论:QQ:56059327,MSN:kermin@hotmail.com.
谢谢!
相关文章推荐
- API实现添加系统托盘图标及其菜单
- 托盘图标和弹出菜单的实现
- 强!简洁!SWT实现任务栏图标(系统托盘),带菜单和ToolTip
- jQuery实现漂亮的指定区域内鼠标右键关联菜单可自定义图标
- vc托盘图标的实现以及托盘右键菜单的响应
- VC如何实现电脑任意一个托盘图标的隐藏
- java程序如何实现右下角系统托盘图标显示
- 17.VC(ui)-托盘图标和弹出菜单的实现(随手代码)
- 如何在系统托盘上动态图标的实现
- SWT 中实现最小化到托盘图标,并只能通过托盘的弹出菜单关闭程序
- C#软件开发实例.私人订制自己的屏幕截图工具(三)托盘图标及菜单的实现
- MFC下托盘图标的实现和托盘菜单
- 如何实现托盘图标
- C#软件开发实例.私人订制自己的屏幕截图工具(三)托盘图标及菜单的实现
- C#之使用NotifyIcon实现任务栏托盘菜单,图标闪烁效果及气泡提示 很多程序是只需要后台运行的,甚至不需要自己的应用界面。NotifyIcon提供了程序在任务栏的显示功能 程序下载链接如下
- VC++任务栏托盘图标及右键菜单实现
- SWT实现任务栏图标(系统托盘),带菜单和ToolTip
- MFC实现托盘图标及弹出菜单(Popup menu)
- FCL小应用系列-----------如何实现托盘图标显示
- MFC下托盘图标的实现和托盘菜单