利用delphi实现系统状态栏图标

1.创建一个应用程序，在主窗体上增加一个tpopupmenu组件。并为该弹出选单组件增加选单项exit，标题为“退出”。　　

　　2.在uses中添加shellapi，因为在系统状态栏中增加图标时需调用shellapi中的函数shell_notifyicona。该函数需要两个参数，其中一个是tnotifyicondataa结构，需在主窗体中增加tnotifyicondataa类型的全局变量ntida。　　

　　3.定义消息mousemsg，并编写主窗体的mousemessage消息处理函数，此函数说明在图标上用鼠标左键单击时，会打开应用程序窗口；用鼠标右键单击时，会弹出一个选单。　　

　　下面给出步骤2和3的实现代码：　

　　unit unit1;
　　interface
　　uses
　　windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
　　stdctrls, extctrls, menus, shellapi;
　　const
　　mousemsg = wm_user + 1; //自定义消息，用于处理用户在图标上点击鼠标的事件
　　iid = 100; //用户自定义数值，在tnotifyicondataa类型全局变量ntida中使用
　　type
　　tform1 = class(tform)
　　......
　　private
　　//自定义消息处理函数，处理鼠标点击图标事件
　　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

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

利用delphi实现系统状态栏图标

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

利用delphi实现系统状态栏图标

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范