系统托盘

1.安装新组件AppTrayIcon
2.在应用程序的主窗口中分别加入：TrayIcon标签中刚才新安装的组件AppTrayIcon、Standard标签中的ActionList、TPopupMenu
3.双击ActionList，添加新的动作，在对象查看器中，可以修改新动作的属性和事件。
例如：加入一个新动作，属性设置：Name := ActEixt ; Caption := '退出(&X)'; Hint := '退出程序';  方法设置：双击OnExecute ，添加代码如下：
procedure TForm1.ActEixtExecute(Sender: TObject);
begin
   Application.Terminate;  //Ends application execution.
end;
用同样的方法可以设置其它的动作，加入一个新动作，属性设置：Name := AcAbout ; Caption := '关于...(&A)'; Hint := '关于程序';  方法设置：双击OnExecute ，添加代码如下：
procedure  TForm1.AcAboutExecute(Sender: TObject);
begin
  FrmAbout := TFrmAbout.Create(Self);
  FrmAbout.ShowModal;
  FrmAbout.Free;
end;

4.双击PopupMenu，添加新的项目，只要在对象查看器的Event标签中选择Action（刚才创建的动作）就可以了。

5.选择组件AppTrayIcon，在对象查看器的Event标签中选择PopupMenu为PopupMenu1；双击OnDbClick，添加代码：
procedure TForm1.AppTrayIcon1DblClick(Sender: TObject);
begin
   AppTrayIcon1.RestoreApp; 
end;

6.回到主窗口 TForm1，在对象查看器的Event标签中选择OnClose， 双击，添加代码：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caNone;    //caNone是一个枚举值type  TCloseAction = (caNone,                       //caHide, caFree, caMinimize);   caNone表示The form is                       //not allowed to close, so nothing happens.

  PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); 
end;

一定要记得在主窗口的OnCreate事件中加入下面一行代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
  AppTrayIcon1.Active := True;  //激活组件AppTrayIcon.
end;

转载于:https://www.cnblogs.com/sideandside/archive/2007/04/12/710562.html