Сворачиваем программу в трей |Delphi|

[Guттer]

Добавляем на форму компоненты:
1) Кнопка (sButton)
2) ТрейИкон (TrayIcon)

Спойлер: open

procedure TForm1.sButton1Click(Sender: TObject); begin // Код на кнопку: при нажатии на кнопку мы сворачиваем программу в трей Form1.Hide; TrayIcon1.Visible:=True; end; procedure TForm1.TrayIcon1Click(Sender: TObject); begin // Код на трей: при нажатии на трей иконку мы разворачиваем программу Form1.Show; TrayIcon1.Visible:=False; end;