[jeydog86]

Сообщение от Vold.khv

Оо поделись кодом плиз))

procedure TForm1.Button1Click(Sender: TObject);
begin
TrayIcon1.Visible := True;
Application.MainForm.Hide;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
TrayIcon1.Visible := False;
Application.MainForm.Show;
end;