Delphi托盘编程实战演练

三．双击主窗体，进入FormCreate的代码区域：

TForm1.FormCreate(Sender:TObject); Begin //NotifyIcon为全局变量，在程序的开头已经定义了 with NotifyIcon do begin cbSize:=SizeOf(TNotifyIconData); Wnd:=Handle; //指向当前窗体Form1的句柄 uID:=1; uFlags:=NIM_ICON or NIM_MESSAGE or NIM_TIP; uCallBackMessage:=WM_NID; hIcon:=Application.Icon.Handle; szTip:=”张家恶少”； end;. //把设置好的变量NotifyIcon加入到系统中以便处理 Shell_NotifyIcon(NIM_ADD,@NotifyIcon); End;

　　四．接下来就是定义一个消息处理函数：系统给窗体发来了一个消息，就由下面这个函数来处理。每个消息处理函数都是处理某一类消息的，大家仔细地看看下面函数体的定义和一般的函数定义有什么不一样：消息处理函数要在后面加上消息的名称，这样当系统发来WM_NID消息时，就是自动触发WMNID消息处理函数。

procedure WMNID(var msg:TMessage);message WM_NID; begin case msg.LParam of WM_LBUTTONUp; Form1.Visible:=not Form1.Visible; WM_RBUTTONUP: ShowMessage(‘您点击的是右键’); End; End;

　　好了，一个最简单的程序诞生了，大家自己设置好自己喜欢的图标.

　　Project->Options,选中Application页面，在Icon项中加载自己喜欢的图标，这样程序运行时，在任务栏里显示的就是你喜欢的图标了。当你单击图标时，窗体Form1会在可见与不可见之间切换，也就是说单击一下显示，再单击一下又隐藏。当你右击图标的时候会弹出一条消息：“你点击的是右键”。
　　
　　五．最后要记住在关闭应用程序的时候要释放掉建立的托盘程序，否则会占用系统资源。

TForm1.FormDestroy(Sender:TObject); Begin Shell_NotifyIcon(NIM_DELETE,@NotifyIcon); End;

　　毕业快半年了，很多东西在学校总理解不了，认识不够深刻；出到社会，接触了不少道中朋友，受益非浅，每有心得体会，总想写成文字，一来总结自己学的东西，二来和大家共同交流。

查看本文来源