关于将程序加载到系统托盘后,如何使用右键菜单的问题(200分)

DJ6674 · 2004-02-02

我编译时,提示IconOnClick定义了但没有使用.在托盘图标上单击或者右击时,没有反应. 代码如下: unit main; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls,setting, ExtCtrls, jpeg, Menus,shellapi; type   TForm1 = class(TForm)     Image1: TImage;     Label1: TLabel;     Label2: TLabel;     PopupMenu1: TPopupMenu;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     N5: TMenuItem;     N6: TMenuItem;     N7: TMenuItem;     N8: TMenuItem;     N9: TMenuItem;     X1: TMenuItem;     procedure FormClick(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure FormCreate(Sender: TObject);     procedure N7Click(Sender: TObject);     procedure X1Click(Sender: TObject);     procedure N5Click(Sender: TObject);     procedure N3Click(Sender: TObject);     procedure N8Click(Sender: TObject);   private     procedure IconOnClick(var message:TMessage);     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} //程序没有问题,但是下面一个过程应有的功能没有实现 procedure TForm1.IconOnClick(var message:Tmessage);  //设置左右键功能 var p:Tpoint; begin      if (message.LParam=WM_LBUTTONDOWN) then      begin           Form2.Show;      end;      if (message.LParam=WM_RBUTTONDOWN) then         begin              GetCursorPos(p);              PopupMenu1.Popup(p.X,p.Y);         end; end;  //以下是装载图标的过程 procedure InstIcon(ToyIcon:TIcon;WinHandle:THandle;cbMessage:Integer); const ICON_ID=3; var IconData:TNotifyIconData; begin      IconData.cbSize:=Sizeof(IconData);      IconData.Wnd:=WinHandle;      IconData.uID:=ICON_ID;      IconData.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;      IconData.uCallbackMessage:=cbMessage;      IconData.hIcon:=ToyIcon.Handle;      IconData.szTip:='欢迎使用';      Shell_NotifyIcon(NIM_ADD,@IconData); end; //删除图标 procedure DeleIcon(winHandle:THandle); const ICON_ID=3; var IconData:TNotifyIconData; begin      IconData.cbSize:=SizeOf(IconData);      IconData.Wnd:=winHandle;      IconData.uID:=ICON_ID;      Shell_NotifyIcon(NIM_DELETE,@IconData); end; procedure TForm1.FormClick(Sender: TObject); begin Form1.Hide; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin DeleIcon(Handle); end; procedure TForm1.FormCreate(Sender: TObject); const MI_ICONEVENT=WM_USER+1; begin InstIcon(Application.Icon,Application.Handle,MI_ICONEVENT); end; procedure TForm1.N7Click(Sender: TObject); begin end; procedure TForm1.X1Click(Sender: TObject); begin end; procedure TForm1.N5Click(Sender: TObject); begin end; procedure TForm1.N3Click(Sender: TObject); begin end; procedure TForm1.N8Click(Sender: TObject); begin end; end.

miaofeng · 2004-02-02

IconOnClick事件是用户自己定义的事件，需要说明一下。 首先要声明一个常量： const   WM_ICONCLICK=WM_USER+1; 然后： private    procedure IconOnClick(var message:TMessage);message WM_ICONCLICK; 在 procedure InstIcon(ToyIcon:TIcon;WinHandle:THandle;cbMessage:Integer); 中： IconData.uCallbackMessage:=WM_ICONCLICK;

andy263 · 2004-02-02

标题：如何让程序最小化时跑到系统托盘里面？ (50分) 西凉老猫 (2003-5-22 9:47) 1884320 在线等！ zhu_jy (2003-5-22 10:0) 网上能找到一个系统托盘控件，再在里面小改一下就能达到你的要求。 zhu_jy (2003-5-24 10:23) unit TrayIcon; interface { A component to make it easier to create a system tray icon.   Drop this component on a form, and the application automatically   becomes a tray icon. This means that when the application is   minimized, it does not minimize to a normal taskbar icon, but   to the little system tray on the side of the taskbar. A popup   menu is available from the system tray icon, and your application   can process mouse events as the user moves the mouse over   the system tray icon, clicks on the icon, etc.   Copyright ?1996 Tempest Software. All rights reserved.   You may use this software in an application without fee or royalty,   provided this copyright notice remains intact. } uses   Windows, Messages, ShellApi, SysUtils, Classes, Graphics, Controls,   Forms, Dialogs, Menus; { This message is sent to the special, hidden window for shell   notification messages. Only derived classes might need to   know about it. } const   Wm_Callback_Message = Wm_User + 1; type   TTrayIcon = class(TComponent)   private     fData: TNotifyIconData;     fIcon: TIcon;     fHint: string;     fPopupMenu: TPopupMenu;     fClicked: Boolean;     fOnClick: TNotifyEvent;     fOnDblClick: TNotifyEvent;     fOnMinimize: TNotifyEvent;     fOnMouseMove: TMouseMoveEvent;     fOnMouseDown: TMouseEvent;     fOnMouseUp: TMouseEvent;     fOnRestore: TNotifyEvent;   protected     procedure SetHint(const Hint: string); virtual;     procedure SetIcon(Icon: TIcon); virtual;     procedure AppMinimize(Sender: TObject);     procedure AppRestore(Sender: TObject);     procedure DoMenu; virtual;     procedure Click; virtual;     procedure DblClick; virtual;     procedure EndSession; virtual;     procedure DoMouseMove(Shift: TShiftState; X, Y: Integer); virtual;     procedure DoMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;     procedure DoMouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;     procedure OnMessage(var Msg: TMessage); virtual;     procedure Changed; virtual;     property Data: TNotifyIconData read fData;   public     constructor Create(Owner: TComponent); override;     destructor Destroy; override;     procedure Minimize; virtual;     procedure Restore; virtual;   published     property Hint: string read fHint write SetHint;     property Icon: TIcon read fIcon write SetIcon;     property PopupMenu: TPopupMenu read fPopupMenu write fPopupMenu;     property OnClick: TNotifyEvent read fOnClick write fOnClick;     property OnDblClick: TNotifyEvent read fOnDblClick write fOnDblClick;     property OnMinimize: TNotifyEvent read fOnMinimize write fOnMinimize;     property OnMouseMove: TMouseMoveEvent read fOnMouseMove write fOnMouseMove;     property OnMouseDown: TMouseEvent read fOnMouseDown write fOnMouseDown;     property OnMouseUp: TMouseEvent read fOnMouseUp write fOnMouseUp;     property OnRestore: TNotifyEvent read fOnRestore write fOnRestore;   end; procedure Register; implementation { Create the component. At run-time, automatically add a tray icon   with a callback to a hidden window. Use the application icon and title. } constructor TTrayIcon.Create(Owner: TComponent); begin   inherited Create(Owner);   fIcon := TIcon.Create;   fIcon.Assign(Application.Icon);   if not (csDesigning in ComponentState) then   begin     FillChar(fData, SizeOf(fData), 0);     fData.cbSize := SizeOf(fData);     fData.Wnd := AllocateHwnd(OnMessage);     fData.hIcon := Icon.Handle;     StrPLCopy(fData.szTip, Application.Title, SizeOf(fData.szTip)-1);     fData.uFlags := Nif_Icon or Nif_Message;     if Application.Title &lt;&gt; '' then       fData.uFlags := fData.uFlags or Nif_Tip;     fData.uCallbackMessage := Wm_Callback_Message;     if not Shell_NotifyIcon(Nim_Add, @fData) then       raise EOutOfResources.Create('Cannot create shell notification icon');     { Replace the application's minimize and restore handlers with       special ones for the tray. The TrayIcon component has its own       OnMinimize 任豆豆 (2003-5-24 10:33) 1。留下email给你发一个相关的控件 2。稍等我正在帮你写用api的代码   任豆豆 (2003-5-24 10:42) //用api的例子，你可以根据需要修改 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs,shellApi, ExtCtrls; const   WM_MY_Notify = WM_USER + 100; type   TForm1 = class(TForm)     Image1: TImage;   private     MyIcon : PNOTIFYICONDATA;     Icon : TIcon;     procedure WMSysCommand(var Message: TWMSysCommand);message WM_SYSCOMMAND;//截获最小化的消息     { Private declarations }   public     procedure NotifyIconClick(var msg : TMessage);message WM_My_Notify;//系统托盘图标的鼠标消息     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.NotifyIconClick(var msg: TMessage); //var //  ClickPoint :TPoint; begin     case Msg.LParam of       WM_RBUTTONDOWN://鼠标右键       begin //        GetCursorPos(ClickPoint); //        NPopExit.Active := True; //        coolPopMain.ShowMenu(ClickPoint.x,ClickPoint.y);       end;       WM_LBUTTONDBLCLK:       begin         //。。。。。。。       end;     end; end;

fei_l · 2004-02-02

参考一些较成熟的TrayIcon控件吧

app2001 · 2004-02-02

其实，如果你不反对三方控件的话，用RX控件组中的 RxTrayIcon1就能很方便的解决问题了。 http://www.51delphi.com/delphi/soft?cx=RXLIB 这就有的

lich · 2004-02-02

CoolTray多好用啊，功能又全

xuxiaohan · 2004-02-02

handel 为 form1的handle； procedure TForm1.FormCreate(Sender: TObject); const MI_ICONEVENT=WM_USER+1; begin   InstIcon(Application.Icon,Handle,MI_ICONEVENT); end;

IT书生 · 2004-02-02

你的程序中已经有了：     IconData.uCallbackMessage:=cbMessage;// 回调函数消息 但是没有定义cbMessage,所以要先定义消息。 {自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息} const cbMessage = WM_USER + 100; 另外miaofeng,说的对，再修改下面这一行代码，andy263给的帖子也说的清楚了，呵呵 private   procedure IconOnClick(var message:TMessage);message cbMessage;

wind8bell · 2004-02-02

先声明： public     { Public declarations }   procedure WndProc(var Msg: TMessage); override; 然后： procedure tform1.WndProc(var Msg: TMessage); var IconID:integer; pt:TPOINT; begin if msg.Msg = WM_TRAYNOTIFY then begin iconID := msg.WParam; //获取鼠标在屏幕上的位置 GetCursorPos(pt); WM_LBUTTONDOWN: begin //鼠标左键被按下 end; WM_RBUTTONDOWN: begin //鼠标右键被按下   end; WM_LBUTTONUP: begin //松开鼠标左键 end; WM_RBUTTONUP: begin //松开鼠标右键 end; WM_MOUSEMOVE: begin //鼠标在图标上移动 end; WM_LBUTTONDBLCLK: begin //左键双击 end; WM_RBUTTONDBLCLK: begin //鼠标右键双击   end; end; end else//调用父类的wndproc处理其他消息 inherited; end;

DJ6674 · 2004-02-02

thanks.

关于将程序加载到系统托盘后,如何使用右键菜单的问题(200分)

DJ6674

Unregistered / Unconfirmed

miaofeng

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

fei_l

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

xuxiaohan

Unregistered / Unconfirmed

IT书生

Unregistered / Unconfirmed

wind8bell

Unregistered / Unconfirmed

DJ6674

Unregistered / Unconfirmed

Similar threads