Delphi中关闭窗口至系统托盘

1、 新建一个工程，在窗体上，放上CnTrayIcon 和PopupMenu
2、 设置CnTrayIcon 属性：
Active :true
AutoHide :flase
Enabled:True
Hint:’实现托盘功能’
Name: CnTrayIcon1
PopupMenu: PopupMenu1
UesApplcon:True
3、 单击系统托盘的代码：
procedure TForm1.CnTrayIcon1Click(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Show; // 显示主窗体
WindowState := TWindowState(tag);
SetForegroundWindow(Handle);
end;

4、 拦截关闭按钮的代码：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Tag := Ord(WindowState);
WindowState := wsMinimized;
Hide; // 去除任务栏上的标题
CanClose := False; // 停止关闭窗体 ,没有这句就直接关闭窗体了
end;

全部代码见附件

转载于:https://www.cnblogs.com/hahy8008/p/6783704.html