欢迎来到天天文库
浏览记录
ID:25932076
大小:51.50 KB
页数:3页
时间:2018-11-23
《系统托盘的编程论文》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、系统托盘的编程论文托盘消息处理:在Shell32.DLL动态链接库中包括一个函数Shell_NotifyIconA()可通知_MYTRAYICONCALLBACK;//托盘消息处理过程proceduremand(Varmsg:Tmand);message_mand;//处理托盘图标的右键菜单事件procedureMinimize(varmess:TNCLBUTTONDO_NCLBUTTONDOMyTrayIconCallBack(varMsg:TMessage);varCursorPos:TPoint;begincaseMsg.LParamof_LBUTTONDBLCLK:
2、//双击消息:弹出主窗口beginVisible:=notVisible;Application.Sho:=Visible;SetForegroundenu(pm,0,ord('A'),.freel,0,Ord('B'),'Exit');//加入菜单事件---》处理MAND消息即可TrackPopupMenu(pm,Tpm_BottomAlignorTpm_RightAlign,CursorPos.x,CursorPos.y,0,handle,nil);//在图标上方显示该弹出式菜单end;end;end;procedureTForm1.mand(varmsg:Tmand)
3、;beginCasemsg.ItemIDofOrd('A'):shoessage('我的右键菜单!');Ord('B'):Self.close;//关闭程序主窗体elseinherited;end;end;procedureTform1.Minimize(varmess:TNCLBUTTONDOess.Hittest=htReducethenSelf.Hideelseinherited;end;procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);var{程序被关闭时通知Windo_DELETE,n
4、id);//去掉小图标end;
此文档下载收益归作者所有