delphi 关闭时缩小到托盘_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;

全部代码见附件