社区
Windows SDK/API
帖子详情
我把应用程序添加到任务条右下角的图标中。请问怎样实现右键弹出菜单阿?
bcap163
2004-11-05 11:32:10
我把应用程序添加到任务条右下角的图标中。请问怎样实现右键弹出菜单阿?
类似QQ MSN那种 点击图标弹出菜单,可以执行一些操作阿?
...全文
228
10
打赏
收藏
我把应用程序添加到任务条右下角的图标中。请问怎样实现右键弹出菜单阿?
我把应用程序添加到任务条右下角的图标中。请问怎样实现右键弹出菜单阿? 类似QQ MSN那种 点击图标弹出菜单,可以执行一些操作阿?
复制链接
扫一扫
分享
举报
写回复
配置赞助广告
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
bcap163
2004-11-08
打赏
举报
回复
我用的api但是发现改变分辨率后发现 系统任务栏不会自动跑到最下方,要是隐藏的话我自然又看不到我的图标了!!!郁闷 ……怎么使系统任务栏始终保持在最下方阿
fenglaile
2004-11-08
打赏
举报
回复
CoolTray
好用,还算稳定
ksaiy
2004-11-05
打赏
举报
回复
那用这个:
Procedure TForm1.IconClick(var Msg:TMessage);
var
p:TPoint;
begin
if ((Msg.lParam=WM_LBUTTONDOWN) and (Status=True)) then
Form2.Show;
if (Msg.lParam=WM_RBUTTONDOWN) then
begin
GetCursorPos(P);
PopupMenu1.Popup(p.x,p.y);
end;
end;
d0347
2004-11-05
打赏
举报
回复
是用API写出来的
ksaiy
2004-11-05
打赏
举报
回复
其实用控件来的是最快的。也比较方便。
可以选的东西也比较多。
试试CoolTray
jinjazz
2004-11-05
打赏
举报
回复
上面的exit1就是个菜单了
jinjazz
2004-11-05
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,shellapi, Menus;
const
mousemsg = wm_user + 1; //自定义消息,用于处理用户在图标上点击鼠标的事件
iid = 100; //用户自定义数值,在TnotifyIconDataA类型全局变量ntida中使用
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
exit1: TMenuItem;
procedure exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
//自定义消息处理函数,处理鼠标点击图标事件
procedure mousemessage(var message: tmessage);
message mousemsg;
public
{ Public declarations }
end;
var
Form1: TForm1;
ntida: TNotifyIcondataA; //用于增加和删除系统状态图标
implementation
{$R *.dfm}
procedure TForm1.mousemessage(var message: tmessage);
var
mousept: TPoint; //鼠标点击位置
begin
inherited;
if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标
getcursorpos(mousept); //获取光标位置
popupmenu1.popup(mousept.x, mousept.y); //在光标位置弹出菜单
end;
if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标
//显示应用程序窗口
ShowWindow(Handle, SW_SHOW);
//在任务栏上显示应用程序窗口
ShowWindow(Application.handle, SW_SHOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW));
end;
message.Result := 0;
end ;
procedure TForm1.Exit1Click(Sender: TObject);
begin
//为ntida赋值,指定各项参数
ntida.cbSize := sizeof(tnotifyicondataa);
ntida.wnd := handle;
ntida.uID := iid;
ntida.uFlags := nif_icon + nif_tip + nif_message;
ntida.uCallbackMessage := mousemsg;
ntida.hIcon := Application.Icon.handle;
ntida.szTip := 'Icon';
shell_notifyicona(NIM_DELETE, @ntida); //删除已有的应用程序图标
Application.Terminate; //中断应用程序运行,退出应用程序
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ntida.cbSize := sizeof(tnotifyicondataa); //指定ntida的长度
ntida.Wnd := handle; //取应用程序主窗体的句柄
ntida.uID := iid; //用户自定义的一个数值,在uCallbackMessage参数指定的消息中使用
ntida.uFlags := nif_icon + nif_tip + nif_message;//指定在该结构中uCallbackMessage、hIcon、szTip参数都有效
ntida.uCallbackMessage := mousemsg;//指定的窗口消息
ntida.hIcon := Application.Icon.handle;//指定系统状态栏显示应用程序的图标句柄
ntida.szTip := 'Icon'; //当鼠标停留在系统状态栏该图标上时,出现该提示信息
shell_notifyicona(NIM_ADD, @ntida); //在系统状态栏增加一个新图标
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone; //不对窗体进行任何操作
ShowWindow(Handle, SW_HIDE); //隐藏主窗体
//隐藏应用程序窗口在任务栏上的显示
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
end;
end.
hangguojun
2004-11-05
打赏
举报
回复
最方便的办法是用一个控件,在控件的PopMenu中设置你要弹出的弹出式菜单,正如ksaiy说的
bcap163
2004-11-05
打赏
举报
回复
感谢各位!!!我周一结帐!!!呵呵 祝大家周末愉快!!!!
billwillman
2004-11-05
打赏
举报
回复
其实原理是:
建立托盘图标需要建立一个窗体,此窗体可以是可见的也可以是不可见的,一般都采用创建不可见的窗体
使用classes单元的Allocatehwnd函数参数的意义是此窗体的消息回调函数,返回一个窗体句柄,
使用Shell_NotifyIcon来设置托盘属性,第一个参数为你的操作参数可以为以下三值之一:
NIM_ADD 增加一个图标
NIM_DELETE 删除一个图标
NIM_MODIFY 修改一个图标
第二个为一个指针,是指向一个TNotifyIconData类型的,此记录体中:Wnd代表托盘窗体的句柄,uflag为TNotifyIconData哪些字段是有效的可以是以下的组合:NIF_ICON hicon有效,NIF_MESSAGE uCallbackMessage有效,NIF_TIP szTip有效
uCallbackMessage代表消息的代号,可在消息回凋函数参数Message中得到,
hIcon图标句柄,szTip托盘的提示信息
最后,用classes单元的DellocateHWND清除窗体参数为窗体句柄
相关推荐
右
下角点击
弹
出
菜单
右
下角点击
弹
出
菜单
,呈圆形依次
弹
出
各个
图标
菜单
mfc:使
应用
程序
显示为
任务
条通知区
中
的
图标
在Windows 95
任务
条的
右
边有一个区域被称为通知区域,在其
中
可以显示一些
应用
程序
的
图标
,用鼠标单击其
中
的
图标
一般能
弹
出
应用
程序
的
菜单
,双击则能显示
应用
程序
的完整窗口界面。时钟和音量控制是
任务
条通知区最常见的
图标
。
任务
条通知区编程可以通过Windows 95外壳编程接口函数Shell_NotifyIcon来
实现
,该函数在shellapi.h头文件
中
声明,其原型如下:WINSHELLAPI BO
托盘
程序
的代码
某些
程序
运行启动后并不
出
现在
任务
条
中
,而是缩小为
任务
条
右
下角的一个小
图标
,当鼠标移到这个小
图标
上时会
出
现一些提示信息、单击该小
图标
会执行一些特定的操作。便如
任务
条
右
下角的小喇叭
图标
,单击它会
弹
出
一个简单的音量控制条,双击会启动另一个更大的音量控制
程序
。 在Shell32.DLL动态链接库
中
包括一个函数Shell_NotifyIconA()可通知Windows在
任务
条
右
下角加入一个小
图标
,可惜
最小化后
右
下角(托盘)小
图标
的
实现
1.想要
实现
这样的效果 2.我参考了“如何
实现
最小化后
出
现
右
下角
图标
”http://www.cnblogs.com/weiqubo/archive/2010/12/25/1917013.html "让一个
程序
托盘显示,并且
右
键
托盘
图标
可以
弹
出
菜单
"http://www.cnblogs.com/chenkunyun/archive/2012/03/17/2403002.html 3.这个效
Win32 替换系统
任务
栏
弹
出
菜单
替换系统
弹
出
菜单
在XP系统下面,
右
击
任务
栏上的一个
应用
程序
,就会
弹
出
一个
菜单
,可以通过这个
菜单
操作应该
应用
程序
,如关闭、还原、最大化、最小化等。如下图所示: 在Windows 7里,这个
弹
出
菜单
是不是直接在
任务
栏上点击
右
键
,而是先把鼠标移动到
应用
程序
图标
上面,这时系统会
弹
出
一个
应用
程序
预览图,然后在这个预览图上面点击
右
键
,就会
弹
出
如上图所示的系统
菜单
。如下图所示。
发帖
Windows SDK/API
Windows SDK/API
Delphi Windows SDK/API
复制链接
扫一扫
1177
社区成员
2.2w+
社区内容
Delphi Windows SDK/API
社区管理员
加入社区
获取链接或二维码
帖子事件
创建了帖子
2004-11-05 11:32
社区公告
暂无公告