Как создать иконку в системном трее с помощью FireMonkey

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

Создание иконки в системном трее с помощью FireMonkey

С приходом FireMonkey, кроссплатформенного инструментария для Delphi, разработчики получили возможность создавать приложения, работающие на различных операционных системах, включая Windows и macOS. Одной из задач, с которой сталкиваются разработчики, является создание иконки в системном трее (или панели уведомлений), что ранее реализовывалось с помощью компонента TTrayIcon в VCL.

Проблема

В документации FireMonkey нет информации о том, как создать иконку в системном трее, что вызывает затруднения у разработчиков, привыкших к использованию TTrayIcon в VCL.

Решение

Для создания иконки в системном трее в FireMonkey есть несколько подходов. Один из них — это реализация отдельных версий для Windows и macOS, используя соответствующие API.

Windows

Для Windows можно использовать функцию Shell_NotifyIcon, которая позволяет отображать иконки в трее. Пример кода на Object Pascal для Windows:

uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  NotifyIcon: TNotifyIconInfo;
begin
  NotifyIcon.cbSize := SizeOf(TNotifyIconInfo);
  NotifyIcon.hWnd := Handle;
  NotifyIcon.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  NotifyIcon.uCallbackMessage := WM_TRAYNOTIFY;
  NotifyIcon.wzTip[0] := 'Пример иконки в трее';
  NotifyIcon.hIcon := LoadIcon(nil, 'ICONINFO'); // Загрузите вашу иконку
  Shell_NotifyIcon(NIM_ADD, NotifyIcon);
end;

macOS

Для macOS используется класс NSStatusItem в сочетании с NSStatusBar. Пример создания иконки в трее для macOS:

uses
  Macapi.CoreServices,
  Macapi.UMB;

var
  StatusItem: NSStatusItem;

begin
  StatusItem := NSStatusBar.systemStatusBar.statusItemWithLength(NSVariableStatusItemLength);
  StatusItem.title := 'Пример';
  StatusItem.menu := TMenu.Create(nil);
  // Добавление пунктов меню и т.д.
  StatusItem.button.image := TImageList.Create(TApp.Core.MainForm).Images[0]; // Загрузите вашу иконку
  StatusItem.button.actived := True;
end;

Альтернативный ответ

Также существует сторонний компонент TTrayIcon от Apesuite, который работает как на Windows, так и на macOS, и является кросс-платформенным решением. Однако, на момент написания этой статьи, Apesuite еще не был доступен для покупки.

Подтвержденный ответ

На данный момент нет встроенных решений от Embarcadero для создания иконки в системном трее в FireMonkey, и разработчикам придется использовать API конкретной операционной системы или сторонние компоненты.

Заключение

Создание иконки в системном трее с помощью FireMonkey требует от разработчика знания специфики каждой операционной системы, для которой создается приложение. Использование кросс-платформенных библиотек, таких как Apesuite, может упростить эту задачу, но на момент последней информации они не были доступны для покупки.

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

Создание иконки в системном трее с помощью FireMonkey предполагает разработку отдельных решений под Windows и macOS, так как стандартные средства FireMonkey не предоставляют такой возможности.

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

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

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