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

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

今日看到一个帖子问:如何在托盘图标实现象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.

谢谢!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航