Универсальная реализация функции выбора папок в Delphi для Windows и macOS

Delphi , Программа и Интерфейс , Диалоги и Фреймы

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

Шаг 1: Понимание проблемы

Разработчик использует функцию SHBrowseForFolder для выбора папок, но эта функция доступна только для Windows. Для поддержки macOS необходимо найти альтернативный способ выбора папок.

Шаг 2: Исследование возможностей

Разработчик рассмотрел следующие варианты:

• System.IOUtils: не нашел подходящей функции.
• TOpenDialog: также не обнаружил опции для выбора папок.

Шаг 3: Поиск решения

В качестве альтернативного ответа было предложено использовать разные файлы кода для Windows и macOS, что позволит избежать использования директив ifdef.

Шаг 4: Подтвержденное решение

Разработчику было предложено использовать класс NSOpenPanel из Cocoa Framework, который позволяет выбрать папку в macOS. Пример использования этого класса можно найти в функции TPlatformCocoa.DialogOpenFiles из модуля FMX.Platform.Mac.

Шаг 5: Реализация в проекте

Для использования NSOpenPanel в Delphi необходимо добавить следующие модули в раздел uses проекта:

MacApi.AppKit,
MacApi.Foundation,
Macapi.CocoaTypes

Пример кода для macOS

uses
  MacApi.AppKit,
  MacApi.Foundation,
  Macapi.CocoaTypes;

procedure TForm1.SelectDirectory;
var
  OpenPanel: TNSPanel;
begin
  OpenPanel := TNSPanel.Create(nil);
  try
    OpenPanel.Style := nsOpenPanelTypeFolder;
    // Установить дополнительные параметры, если необходимо
    if OpenPanel.Run = NSOKButton then
      // Обработка выбранного пути
  finally
    OpenPanel.Free;
  end;
end;

Пример кода для Windows

Для Windows можно использовать SHBrowseForFolder, но учитывая многоплатформенность, можно рассмотреть использование компонента TFolderBrowserDialog из VCL.

uses
  Vcl.ComCtrls;

procedure TForm1.SelectDirectoryWin;
var
  FolderDialog: TFolderBrowserDialog;
begin
  FolderDialog := TFolderBrowserDialog.Create(nil);
  try
    FolderDialog.Options := FolderDialog.Options + [foCreateFolder, foNotifyUser];
    if FolderDialog.Execute = MR_OK then
      // Обработка выбранного пути
  finally
    FolderDialog.Free;
  end;
end;

Шаг 6: Интеграция кода

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

Таким образом, разработчикам Delphi предоставляется универсальный способ выбора папок, который будет работать как на Windows, так и на macOS, обеспечивая пользователям единый и интуитивно понятный интерфейс для выполнения этой операции.

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

Необходимость реализации функции выбора папок в Delphi для работы на Windows и macOS, используя разные подходы для каждой операционной системы.

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

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

:: Главная :: Диалоги и Фреймы ::