在页面中分别添加组件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;
在页面中分别添加组件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水上垃圾检测)
