管与hTrayIcon的使用

[lovewhat1234]

今天在2ccc中下载了一个hTrayIcon，但不会用，那位好心人能指导一下如何使用。
下载网址：http://www.2ccc.com/article.asp?articleid=2988

[快乐老猫]

D2007已经带这种组件了，实际上自己用API实现业不是很复杂。

[do2008]

安装好控件后，拖个到窗体中，具体用的话，打开其源码，看它的类定义的接口即可。

[do2008]

弹出PP： hTrayIcon1.ShowBalloonHint('Title','pop message');

设置Visible,为true,即可在 系统托盘中显示图标，

其它的设置一下icon,pop menu,即可达到满意的效果了

[lovewhat1234]

to do2008
谢谢你，可是想请问如果我想达到如下效果该如何做：
双击气泡，把窗体变成当前活动，然后执行其他操作，我应该在hTrayIcon1DblClick中写什么
谢谢

[lovewhat1234]

解决了，大家共享
if Application.MainForm <> nil then
begin
Application.Restore;
if Application.MainForm.WindowState = wsMinimized then
Application.MainForm.WindowState := wsNormal;
Application.MainForm.Visible := True;
SetForegroundWindow(Application.Handle);
end;