如何得到系统盒中小图标的位置？ (100分)

sxzqcyj · 2001-09-27

在没有点击的情况下如何得到系统盒中小图标的位置？

sxzqcyj · 2001-09-30

为什么没有帮我呢，我没说明的吗 就是在没有任何鼠标事件情况下， 应用程序内部得到图标的位置， 然后在这个位置弹出一个菜单。 分少我可以再加。

sxzqcyj · 2001-10-09

大家要多少分就帮我呀！[?]

leejames · 2001-10-10

试试这个控件吧，应该有你想要的功能 unit TrayIcon; interface uses   Windows, Messages, Forms, SysUtils, ImgList, Controls, Menus, ExtCtrls, Dialogs,   ScktComp, ComCtrls,StdCtrls, Buttons, Classes, Shellapi, Graphics;//, DesignEditors, //  DesignIntf; //, DsgnIntf; {  Windows, Messages, SysUtils, Classes, Graphics, Forms, Menus,   shellAPI, StdCtrls, ExtCtrls, Controls, ComCtrls, Buttons;  } type   ENotifyIconError = class(Exception); {  TAboutTrayIcon = class(TPropertyEditor)   public     procedure Edit; override;     function GetAttributes: TPropertyAttributes; override;     function GetValue: string; override;   end; }   TTrayIcon = class(TComponent)   private //    FAbout: TAboutTrayIcon;     FDefaultIcon: THandle;     FIcon: TIcon;     FHideTask: boolean;     FHint: string;     FIconVisible: boolean;     FPopupMenu: TPopupMenu;     FOnClick: TNotifyEvent;     FOnDblClick: TNotifyEvent;     FNoShowClick: boolean;     FTimer: TTimer;     Tnd: TNotifyIconData;     procedure SetIcon(Value: TIcon);     procedure SetHideTask(value: boolean);     procedure SetHint(Value: string);     procedure SetIconVisible(Value: boolean);     procedure SetPopupMenu(Value: TPopupMenu);     procedure SendTrayMessage(Msg: DWORD; Flags: UINT);     function ActiveIconhandle: THandle;     procedure OnButtonTimer(Sender: TObject);   protected     procedure Loaded; override;     procedure LoadDefaultIcon; virtual;     procedure Notification(AComponent: TComponent;       Operation: TOperation); override;   public     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   published //    property About: TAboutTrayIcon read FAbout write FAbout;     property Icon: TIcon read FIcon write SetIcon;     property HideTask: boolean read FHideTask write SethideTask default false;     property Hint: string read FHint write SetHint;     property IconVisible: boolean read FIconVisible write SetIconVisible       default false;     property PopupMenu: TPOpupMenu read FPopupMenu write SetPopupMenu;     property OnClick: TNotifyEvent read FOnClick write FOnClick;     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;   end; procedure Register; implementation // TIconmanager ----------------------------------------------- // This class creates a hiden window which handles and routes // tray icon messages. type   TIconManager = class   private     FHWindow: HWnd;     procedure TrayWndProc(var Message: TMessage);   public     constructor Create;     destructor Destroy; override;     property HWindow: HWnd read FHWindow write FHWindow;   end; var   IconMgr: TIconManager;   DDGM_TRAYICON: Cardinal; constructor TIconManager.Create; begin   FHWindow:=AllocateHWnd(TrayWndProc); end; destructor TIconManager.Destroy; begin   if FHWindow <> 0 then DeallocateHWnd(FHWindow);   inherited Destroy; end; // This allows us to handle all tray callback messages // form within the context of the component procedure TIconManager.TrayWndProc(var Message: TMessage); var   pt: TPoint;   TheIcon: TTrayIcon; begin   with Message do begin     // if it's the tray callback message     if Msg = DDGM_TRAYICON then begin       TheIcon:=TTrayIcon(WParam);       case lParam of         // Enable timer on first mouse down.         // OnClick will be fired by OnTimer method, provided         // double Click had not occured         WM_LBUTTONDOWN: TheIcon.FTimer.Enabled:=true;         // Set no click flag on double click. This will supress         // the single click.         WM_LBUTTONDBLCLK: begin           TheIcon.FNoShowClick:=true;           if Assigned(TheIcon.FOnDblClick) then             TheIcon.FOnDblClick(self);         end;         WM_RBUTTONDOWN: begin           if Assigned(TheIcon.FPopupMenu) then begin             // Call to SetForeGroundWindow is required by API             SetForeGroundWindow(IconMgr.HWindow);             // Popup local menu at the cursor position             GetCursorPos(pt);             TheIcon.FPopupMenu.Popup(pt.x, pt.y);             // Message post required by API for force task switch             PostMessage(IconMgr.HWindow, WM_USER, 0, 0);           end;         end;       end;     end     else       // If isn't a tray callback message, then call DefWindowProc       result:=DefWindowProc(FHWindow, Msg, wParam, lParam);   end; end; // TTrayIcon -------------------------------------------------- constructor TTrayIcon.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FIcon:=TIcon.Create;   FTimer:=TTimer.Create(self);   with FTimer do begin     Enabled:=false;     Interval:=GetDoubleClickTime;     OnTimer:=OnButtonTimer;   end;   // Keep default windows icon handy...   LoadDefaultIcon; end; destructor TTrayIcon.Destroy; begin   if FIconVisible then SetIconVisible(false); // Destroy icon   FIcon.Free;   FTimer.Free;   inherited Destroy; end; // Return handle of active icon function TTrayIcon.ActiveIconhandle: THandle; begin   // if no icon is loaded, then return default icon.   if FIcon.Handle <> 0 then     result:=FIcon.Handle   else     result:=FDefaultIcon; end; // Loads default windows icon to keep it handy. // This will allow the component to use the windows logo icon // as the default when no icon is selected in the icon property. procedure TTrayIcon.LoadDefaultIcon; begin   FDefaultIcon:=LoadIcon(0, IDI_WINLOGO); end; // Called after component is loaded from stream procedure TTrayIcon.Loaded; begin   inherited Loaded;   // If icon is supposed to be visible, create it.   if FIconVisible then     SendTrayMessage(NIM_ADD, NIF_MESSAGE or NIF_ICON or NIF_TIP); end; procedure TTrayIcon.Notification(AComponent: TComponent;   Operation: TOperation); begin   inherited Notification(AComponent, Operation);   if (Operation = opRemove) and (AComponent = PopupMenu) then     PopupMenu := nil; end; // Timer used to keep track of time between two clicks of a // double click. This delays the first click long enough to // ensure that a double click hasn't occured. The whole // point of these gymnastics is to allow the component to // recieve OnClicks and OnDblClicks independently. procedure TTrayIcon.OnButtonTimer(Sender: TObject); begin   // disable timer because we only want it to fire once.   FTimer.Enabled:=false;   // If double click has not occured, then fire single click.   if (not FNoShowClick) and Assigned(FOnClick) then     FOnClick(self);   FNoShowclick:=false; // Reset flag end; // This method wraps up the call to the API's Shell_NotifyIcon procedure TTrayIcon.SendTrayMessage(Msg: DWORD; Flags: UINT); begin   // Fill up record with appropriate values   with Tnd do begin     cbSize:=SizeOf(Tnd);     StrPLCopy(szTip, PChar(FHint), SizeOf(szTip));     uFlags:=Flags;     uID:=UINT(self);     Wnd:=IconMgr.HWindow;     uCallbackMessage:=DDGM_TRAYICON;     hIcon:=ActiveIconHandle;   end;   Shell_NotifyIcon(Msg, @Tnd); end; // Write method for HideTask property procedure TTrayIcon.SetHideTask(Value: boolean); const   // Flags to show application normal or hide it   ShowArray: array [boolean] of integer = (sw_ShowNormal, sw_Hide); begin   if FHideTask <> Value then begin     FHideTask:=Value;     // Don't do anything in design mode     if not (csDesigning in ComponentState) then       ShowWindow(Application.Handle, ShowArray[FHideTask]);   end; end; // Set method for Hint property procedure TTrayIcon.SetHint(Value: string); begin   if FHint <> Value then begin     FHint:=Value;     if FIconVisible then // Change hint on iocn on notification tray       SendTrayMessage(NIM_MODIFY, NIF_TIP);   end; end; // Set method for Icon property procedure TTrayIcon.SetIcon(Value: TIcon); begin   FIcon.Assign(Value); // Set new icon   if FIconVisible then // Change icon on notification tray     SendTrayMessage(NIM_MODIFY, NIF_ICON); end; // write method fo IconVisible property procedure TTrayIcon.SetIconVisible(Value: boolean); const   // Flags to add or delete a tray-notification icon   MsgArray: array[boolean] of DWORD = (NIM_DELETE, NIM_ADD); begin   if FIconVisible <> Value then begin     FIconVisible:=Value;     // Set Icon as appropriate     SendTrayMessage(MsgArray[Value], NIF_MESSAGE or NIF_ICON or NIF_TIP);   end; end; // Write method for PopupMenu property procedure TTrayIcon.SetPopupMenu(Value: TPopupMenu); begin   FPopupMenu:=Value;   if Value <> nil then     Value.FreeNotification(self); end; // TAboutTrayIcon --------------------------------------------- { procedure TAboutTrayIcon.Edit; begin   Application.MessageBox('Tray Notification Component V1.0'+#13#10#13#10+                          ' This Component is Freeware'+#13#10#13#10+                          '    By  Lee James 2000',                          'About TrayIcon...',                          MB_ICONINFORMATION+MB_OK); end; function TAboutTrayIcon.GetAttributes: TPropertyAttributes; begin   Result := [paMultiSelect, paDialog, paReadOnly]; end; function TAboutTrayIcon.GetValue: string; begin   Result := '(about)'; end; } // register component -------------------------------- procedure Register; begin   RegisterComponents('Samples', [TTrayIcon]); //  RegisterPropertyEditor(TypeInfo(TAboutTrayIcon), TTrayIcon, //                         'About', TAboutTrayIcon); end; const   // String to indentify registered window message   TrayMsgStr = 'DDG.TrayNotifyIconMsg'; initialization   // Get a unique windows message ID for tray callback   DDGM_TRAYICON:=RegisterWindowMessage(TrayMsgStr);   IconMgr:=TIconManager.Create; finalization   IconMgr.Free; end.

sxzqcyj · 2001-10-12

TO：leejames TPropertyEditor、TPropertyAttributes是这些吗？ 能具体说说吗？ 或者发E_MAIL给我,SXZQCYJ@SOHU.COM 多谢了!

PENGS · 2001-10-12

写这么多代码做什么？

leejames · 2001-10-14

to: sxzqcyj 不好意思，我理解错了。我研究了一个晚上，也找不出什么办法解决你的问题，继续中。。 TPropertyEditor、TPropertyAttributes是控件的属性编辑器用的，和你的问题无关，因 D6的属性编辑器和D5的实现不同，所以我注释掉了。 to: PENGS 你如果认为两三行代码可以解决的话，写出来看看，我也想知道怎么做

sxzqcyj · 2001-10-20

谁能帮我！[

]

NetRobot2001 · 2001-10-21

sxzqcyj · 2001-10-22

期待中！

sxzqcyj · 2001-10-29

HELP ME

xcode · 2001-10-30

我用了那个控件，但是有个问题，就是在任务栏上仍然有图标。有没有办法不让它出现在任务栏上， 只显示在系统栏里呢？

tseug · 2001-10-30

Application.ShowMainForm := False;

cuteh · 2001-11-06

var pt:Tpoint; GetCursorPos(pt); pt.x,pt.y就是

sxzqcyj · 2001-11-07

没有鼠标事件发生

sxzqcyj · 2001-11-13

我没说明白吗

leejames · 2001-11-15

to: xcode   TrayIcon.HideTask:=false; 即可隐藏任务栏图标 to: sxzqcyj   系统栏图标其实是由Ｗｉｎｄｏｗｓ本身创建的，没有鼠标事件我觉得不太可能

iamfly · 2001-11-15

sxzqcyj，你是想知道SYSTRAY中其它程序的图标的位置吧：) 我当初有提过类似的问题：http://www.delphibbs.com/delphibbs/dispq.asp?lid=336167 后来是收到了一份VC的源码，现在可能要找下才知道放在哪了。。。

jqw · 2001-11-15

wm_nclmoustdown message.wparam =hisysmenu

sxzqcyj · 2001-11-18

to:iamfly 我看过你的问题了，找到后能给我发一份吗，最好像你说的哪样，用DELPHI写的、带中 文注释。 顺便问一下，它能知道每个图标的具体位置吗？ SXZQCYJ@SOHU.COM 先谢了！

如何得到系统盒中小图标的位置？ (100分)

sxzqcyj

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

leejames

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

PENGS

Unregistered / Unconfirmed

leejames

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

NetRobot2001

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

xcode

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

cuteh

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

leejames

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

jqw

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

Similar threads