没得高手啊，托盘图标的问题N个，我只有这点分了 (30分)

rEgSpy · 2003-12-29

托盘图标提示怎么动态改变？ win2000以后版本的托盘图标气泡提示，怎么实现？ 右键菜单弹出了，不点就不消失啊，怎么处理？ 托盘图标后不能正常关机，怎么处理？   sztip 是　array[0..63]，用string赋值就不能了，怎么办？ 我只有30分了

yuanlaqin · 2003-12-30

问题比分多多了，呵呵。我也很关注答案啊！：）

rEgSpy · 2003-12-30

没办法，我只有这点分了，要是我有分我分不给吗，我又不会把分拿回去煮着吃 其实我知道在2000以后要用新的函数，只是我没资料， 赋值是我DELPHI功力差的原因， 这些问题一个叫happyjoe的高手都解决了的，只是我联系不上他啊，

QSmile · 2003-12-30

用 StrPCopy（）

rEgSpy · 2003-12-30

动态改变搞定，谢谢QSmile,其他问题有办法吗？

ASDC · 2003-12-30

第二个：托盘气泡提示是指哪种效果。 第三个问题我也遇到了 第四个问题没有啊 我也在学习这个托盘图标，但是没你的那种气泡提示。 这是我用的在网上查到的资料，没有不能关机的问题 不嫌麻烦就你看看 unit Unit1; interface { 记住在uses部分中包括 ShellAPI} uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls; {自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息} {自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息} const MY_MESSAGE = WM_USER + 100; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormPaint(Sender: TObject); private procedure OnIconNotify(var Message: TMessage); message MY_MESSAGE; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} {当小图标捕捉到鼠标事件时进入此过程} {当小图标捕捉到鼠标事件时进入此过程} procedure TForm1.OnIconNotify(var Message: TMessage); const Busy: Boolean = false; begin if not Busy then begin Busy := true; if Message.LParam=WM_LBUTTONDOWN then if Application.MessageBox(&apos;Are you sure&apos;, &apos;Exit&apos;, MB_YESNO)=IDYES then Close; Busy := false; end; end; {当主Form建立时通知Windows加入小图标} procedure TForm1.FormCreate(Sender: TObject); var nid: TNotifyIconData; begin nid.cbSize := sizeof(nid); // nid变量的字节数 nid.Wnd := Handle; // 主窗口句柄 nid.uID := -1; // 内部标识，可设为任意数 nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄，可任意指? nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄，可任意指? nid.szTip := &apos;This is a test application&apos;; // 提示字符串 nid.uCallbackMessage := MY_MESSAGE; // 回调函数消息 nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有? if not Shell_NotifyIcon(NIM_ADD, @nid) then begin ShowMessage(&apos;Failed!&apos

; Application.Terminate; end; {将程序的窗口样式设为TOOL窗口，可避免在任务条上出现} SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end; {程序被关闭时通知Windows去掉小图标} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var nid: TNotifyIconData; begin nid.cbSize := sizeof(nid); // nid变量的字节数 nid.cbSize := sizeof(nid); // nid变量的字节数 nid.uID := -1; //内部标识，与加入小图标时的数一致 nid.Wnd := Handle; //主窗口句柄 Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标 Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标 end; {主窗口初始化完毕并显示时将激活Paint重画事件，此时将主窗口隐藏} procedure TForm1.FormPaint(Sender: TObject); begin Hide; end; end.

QSmile · 2003-12-30

>>右键菜单弹出了，不点就不消失啊，怎么处理？ 把 Popmenu 的 PopupComponent （好象是这样）设为窗体上一个控件。 这样就可以了。 还有一个情况窗口弹出后，有时不能最小化， 要在窗口显示时用 Restore 方法， 以前我写了一个托盘区的程序，反反复复的把我折腾死了。 想起来都怕了。 >>win2000以后版本的托盘图标气泡提示，怎么实现？ 这不是托盘区自己带的提示框，是用 CreateWindowsEx 创建的一个窗体， 用代码显示出来，也是用代码来关闭它的。 装了 IE4 就有这个功能。 你可以在 MSDN 里显一下 Tooltips 可以找到。 代码写好了，给我一份可否？

rEgSpy · 2003-12-30

楼上的，不是创建的一个窗体 是2000以后的系统就有这个新功能，要VS7中才有资料， 右键菜单弹出了，不点就不消失啊，怎么处理？，这个我有理论，就是不能自己做 气泡提示搞定 效果如图 http://www.delphiworld.narod.ru/base/images/tray_hint.jpg 我找到了happyjoe写的文章了，单元如下     Use the AddSysTrayIcon procedure to add icon to notification area   (in FormCreate, for example), and use the ShowBalloonTips procedure   when ever you want(of cause must after you called AddSysTrayIcon procedure),   and finally call DeleteSysTrayIcon procedure to remove icon from   notification area after your using.   Add propriety code to the callback message handler.   The new feature require IE5 or later. } unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; {new constant definitions} const   NIF_INFO = $10;   NIF_MESSAGE = 1;   NIF_ICON = 2;   NOTIFYICON_VERSION = 3;   NIF_TIP = 4;   NIM_SETVERSION = $00000004;   NIM_SETFOCUS = $00000003;   NIIF_INFO = $00000001;   NIIF_WARNING = $00000002;   NIIF_ERROR = $00000003;   NIN_BALLOONSHOW = WM_USER + 2;   NIN_BALLOONHIDE = WM_USER + 3;   NIN_BALLOONTIMEOUT = WM_USER + 4;   NIN_BALLOONUSERCLICK = WM_USER + 5;   NIN_SELECT = WM_USER + 0;   NINF_KEY = $1;   NIN_KEYSELECT = NIN_SELECT or NINF_KEY;       NIN_BALLOONSHOW = WM_USER + 2;   NIN_BALLOONHIDE = WM_USER + 3;   NIN_BALLOONTIMEOUT = WM_USER + 4;   NIN_BALLOONUSERCLICK = WM_USER + 5;   NIN_SELECT = WM_USER + 0;   NINF_KEY = $1;   NIN_KEYSELECT = NIN_SELECT or NINF_KEY;   {other constants can be found in vs.net---vc7's dir: PlatformSDK/Include/ShellAPI.h}   {define the callback message}   TRAY_CALLBACK = WM_USER + $7258;   {new NotifyIconData structure definition} type   PNewNotifyIconData = ^TNewNotifyIconData;   TDUMMYUNIONNAME    = record     case Integer of       0: (uTimeout: UINT);       1: (uVersion: UINT);   end;   TNewNotifyIconData = record     cbSize: DWORD;     Wnd: HWND;     uID: UINT;     uFlags: UINT;     uCallbackMessage: UINT;     hIcon: HICON;    //Version 5.0 is 128 chars, old ver is 64 chars     szTip: array [0..127] of Char;     dwState: DWORD; //Version 5.0     dwStateMask: DWORD; //Version 5.0     szInfo: array [0..255] of Char; //Version 5.0     DUMMYUNIONNAME: TDUMMYUNIONNAME;     szInfoTitle: array [0..63] of Char; //Version 5.0     dwInfoFlags: DWORD;   //Version 5.0   end; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     IconData: TNewNotifyIconData;     procedure SysTrayIconMsgHandler(var Msg: TMessage); message TRAY_CALLBACK;     procedure AddSysTrayIcon;     procedure ShowBalloonTips;     procedure DeleteSysTrayIcon;   public   end; var   Form1: TForm1; implementation {$R *.DFM} uses   ShellAPI; procedure TForm1.SysTrayIconMsgHandler(var Msg: TMessage); begin   case Msg.lParam of     WM_MOUSEMOVE:;     WM_LBUTTONDOWN:;     WM_LBUTTONUP:;     WM_LBUTTONDBLCLK:;     WM_RBUTTONDOWN:;     WM_RBUTTONUP:;     WM_RBUTTONDBLCLK:;     //followed by the new messages     NIN_BALLOONSHOW:     {Sent when the balloon is shown}       ShowMessage('NIN_BALLOONSHOW');     NIN_BALLOONHIDE:     {Sent when the balloon disappears?Rwhen the icon is deleted,     for example. This message is not sent if the balloon is dismissed because of     a timeout or mouse click by the user. }       ShowMessage('NIN_BALLOONHIDE');     NIN_BALLOONTIMEOUT:     {Sent when the balloon is dismissed because of a timeout.}       ShowMessage('NIN_BALLOONTIMEOUT');     NIN_BALLOONUSERCLICK:     {Sent when the balloon is dismissed because the user clicked the mouse.     Note: in XP there's Close button on he balloon tips, when click the button,     send NIN_BALLOONTIMEOUT message actually.}       ShowMessage('NIN_BALLOONUSERCLICK');   end; end;   {AddSysTrayIcon procedure add an icon to notification area} procedure TForm1.AddSysTrayIcon; begin   IconData.cbSize := SizeOf(IconData);   IconData.Wnd := AllocateHWnd(SysTrayIconMsgHandler);   {SysTrayIconMsgHandler is then callback message' handler}   IconData.uID := 0;   IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;   IconData.uCallbackMessage := TRAY_CALLBACK;   //user defined callback message   IconData.hIcon := Application.Icon.Handle;    //an Icon's Handle   IconData.szTip := 'Please send me email.';   if not Shell_NotifyIcon(NIM_ADD, @IconData) then     ShowMessage('add fail'); end; {ShowBalloonTips procedure carry out the new feature: Balloon Tips} procedure TForm1.ShowBalloonTips; var   TipInfo, TipTitle: string; begin   IconData.cbSize := SizeOf(IconData);   IconData.uFlags := NIF_INFO;   TipInfo := 'Please send me email.';   strPLCopy(IconData.szInfo, TipInfo, SizeOf(IconData.szInfo) - 1);   IconData.DUMMYUNIONNAME.uTimeout := 3000;   TipTitle := 'Happyjoe@21cn.com';   strPLCopy(IconData.szInfoTitle, TipTitle, SizeOf(IconData.szInfoTitle) - 1);   IconData.dwInfoFlags := NIIF_INFO;     //NIIF_ERROR;  //NIIF_WARNING;   Shell_NotifyIcon(NIM_MODIFY, @IconData);   {in my testing, the following code has no use}   IconData.DUMMYUNIONNAME.uVersion := NOTIFYICON_VERSION;   if not Shell_NotifyIcon(NIM_SETVERSION, @IconData) then     ShowMessage('setversion fail'); end; {here's the deletion procedure} procedure TForm1.DeleteSysTrayIcon; begin   DeallocateHWnd(IconData.Wnd);   if not Shell_NotifyIcon(NIM_DELETE, @IconData) then     ShowMessage('delete fail'); end; procedure TForm1.FormCreate(Sender: TObject); begin   AddSysTrayIcon;   ShowBalloonTips; end; procedure TForm1.FormDestroy(Sender: TObject); begin   DeleteSysTrayIcon; end; end.

QSmile · 2003-12-30

>>楼上的，不是创建的一个窗体 >>是2000以后的系统就有这个新功能，要VS7中才有资料， 我只是不知道用这个方法也可以。 因为以前我做的一个就是用 CreateWindowEx 实现的。 >>右键菜单弹出了，不点就不消失啊，怎么处理？，这个我有理论，就是不能自己做 这个什么意思？

skadon · 2003-12-30

{当小图标捕捉到鼠标事件时进入此过程} procedure TForm1.OnIconNotify(var Message: TMessage); var   TP: TPoint; begin   if not Busy then begin     Busy := true;     if Message.LParam=WM_LBUTTONDOWN then     begin       SetForegroundWindow(self.Handle);    //避免菜单无法正常消失！！       GetCursorPos(TP);       PM1.Popup(TP.X ,TP.Y );     end     else       if Message.LParam=WM_RBUTTONDOWN then       begin         SetForegroundWindow(self.Handle);         GetCursorPos(TP);         PM1.Popup(TP.X ,TP.Y );       end;     Busy := not Busy;   end; end;

rEgSpy · 2003-12-30

to QSmile 原理就是在MouseClick时不弹出菜单，改为Post一个自定义的消息，在这个消息响应中弹出菜单 to skadon 谢谢，我试试 to all 谢谢大家啦 我记得气泡提示有个关闭按钮的，不知道怎么做

rEgSpy · 2003-12-30

to skadon SetForegroundWindow(self.Handle);    //避免菜单无法正常消失！！ OK，谢谢，已搞定

rEgSpy · 2003-12-30

接受答案了，只是我分太少，给你们的不多，抱歉啊

没得高手啊，托盘图标的问题N个，我只有这点分了 (30分)

rEgSpy

Unregistered / Unconfirmed

yuanlaqin

Unregistered / Unconfirmed

rEgSpy

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

rEgSpy

Unregistered / Unconfirmed

ASDC

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

rEgSpy

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

skadon

Unregistered / Unconfirmed

rEgSpy

Unregistered / Unconfirmed

rEgSpy

Unregistered / Unconfirmed

rEgSpy

Unregistered / Unconfirmed

Similar threads