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