Как сделать, чтобы приложение на Delphi минимизировалось в системный трей: пошаговое руководство

Delphi , Рабочий стол , TrayBar

Иногда, разработчикам необходимо создать приложение, которое при сворачивании не будет отображаться в панели задач, а вместо этого появится в системном трее. Это может быть полезно для уменьшения занимаемого пространства на панели задач и повышения удобства использования программы. В данной статье мы рассмотрим, как реализовать такую функциональность в приложении на языке Delphi.

Шаг 1: Создание иконки для системного трея

Для начала, вам потребуется создать иконку, которая будет отображаться в системном трее. Это можно сделать с помощью функции LoadIcon, которая загружает иконку из ресурсов вашего приложения.

HMainIcon := LoadIcon(MainInstance, 'MAINICON');

Шаг 2: Обработка минимизации приложения

Когда пользователь нажимает кнопку минимизации, вам нужно скрыть основное окно приложения и добавить иконку в системный трей. Это можно сделать, используя функцию Shell_NotifyIcon.

procedure TMinimizeToTray.FormCreate(Sender: TObject);
var
  tnid: TNotifyIconData;
begin
  // Загрузка иконки
  HMainIcon := LoadIcon(MainInstance, 'MAINICON');

  // Удаление иконки, если она уже существует
  Shell_NotifyIcon(NIM_DELETE, @tnid);

  // Инициализация структуры TNotifyIconData
  tnid.cbSize := SizeOf(TNotifyIconData);
  tnid.Wnd := Handle;
  tnid.uID := 123; // Уникальный идентификатор иконки
  tnid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  tnid.uCallbackMessage := WM_NOTIFYICON;
  tnid.hIcon := HMainIcon;
  tnid.szTip := 'Tooltip'; // Подсказка, отображаемая при наведении курсора

  // Добавление иконки в системный трей
  Shell_NotifyIcon(NIM_ADD, @tnid);
end;

Шаг 3: Обработка двойного клика по иконке в трее

При двойном клике по иконке в трее, приложение должно восстановиться, показав основное окно. Это можно реализовать с помощью обработчика сообщения WM_NOTIFYICON.

procedure TMinimizeToTray.CMClickIcon(var msg: TMessage);
begin
  if msg.lParam = WM_LBUTTONDBLCLK then
    Show;
end;

Шаг 4: Обработка закрытия приложения

При закрытии приложения, необходимо удалить иконку из системного трея.

procedure TMinimizeToTray.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
  // Удаление иконки из трея
  Shell_NotifyIcon(NIM_DELETE, Pointer(@tnid));
  // Закрытие основного окна
  Hide;
end;

Пример кода, который не следует шагам

В примере кода, найденного пользователем, отсутствует шаг по скрытию иконки в трее в момент минимизации через кнопку закрытия окна, а также шаг по восстановлению иконки в трее при закрытии приложения. Однако, он может служить отправной точкой для разработки.

Альтернативные решения

В случае, если вы используете старую версию Delphi, например, Delphi 7, вы можете использовать сторонние компоненты, такие как JVCL или CoolTrayIcon, которые предоставляют дополнительные возможности для работы с системным треем и упрощают разработку.

Заключение

Следуя представленным шагам, вы сможете реализовать функциональность минимизации вашего приложения в системный трей. Это позволит создать более удобный и интуитивно понятный интерфейс для пользователя, а также упростить процесс управления запущенными приложениями.

Создано по материалам из источника по ссылке.

Вопрос связан с пошаговым руководством по созданию приложения на Delphi, которое при сворачивании будет отображаться в системном трее, а не на панели задач.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TrayBar ::