在页面中分别添加组件TrayIcon和Popupmenu
编写页面Resize事件，当页面最小化的时候隐藏页面到托盘，代码如下：
procedure TfrmExport.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if messageDlg('是否退出程序？', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then CanClose := true else CanClose := false; end;procedure TForm1.FormResize(Sender: TObject); begin case WindowState of wsMinimized: hide; end; end;点击TryIcon组件，属性Visible设为True，属性PopupMenu设为第一步添加的Popupmenu组件，属性Icon点击右侧三个点设置最小化到托盘时显示的图标
右键点击Popupmenu组件，选择Menu Designer，添加两个选项，分别是“显示”和“隐藏”
在左侧找到显示和隐藏按钮，分别设置点击事件，点击【显示】将页面显示出来，点击【退出】即关闭页面（不是最小化是关闭）
procedure TfrmExport.N1Click(Sender: TObject); begin show; end; procedure TfrmExport.N2Click(Sender: TObject); begin close; end;
/YOLO水上垃圾检测)
