Question

delphi中怎么实现点击关闭为缩小为系统托盘

Answer 1

在 Delphi 语言中，实现点击关闭为缩小为系统托盘，最简单的办法是使用控件，如 CnPack 小组提供的免费开源组件包中的 TCnTrayIcon 控件。

实现步骤如下：

1、在窗体中添加两个控件，CnTrayIcon：

2、设置相关的属性

3、编写代码，当点击窗口右上角的 关闭 按钮 时，将窗口关闭操作改为 隐藏：

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Tag = 0 then
  begin
    CanClose := False;
    Hide;
  end else
    CanClose := True;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  Show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  Tag := 1;
  Close;
end;