Динамическое управление кнопкой "OK" в диалоге выбора директорий в Delphi

Delphi , Файловая система , Директории

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

Описание проблемы

Пользователи часто сталкиваются с задачей, когда необходимо активировать или деактивировать кнопку "OK" в диалоге выбора директорий в зависимости от некоторых условий. Например, кнопка должна быть активирована, если имя выбранной директории соответствует "config", или если в директории присутствует файл с именем ".project" и папка с именем ".settings".

Решение проблемы

Для реализации такой функциональности можно использовать функцию API ShBrowseForFolder. В Delphi существует обертка для этой функции, но она может не предоставлять достаточно доступа для выполнения необходимых действий. Вам потребуется включить функцию обратного вызова для параметра lpfn с определенной сигнатурой:

function BrowseCallbackProc(Wnd: HWnd; uMsg: UInt; lParam, lpData: LParam): Integer; stdcall;

Когда происходит изменение выбора, диалог вызывает предоставленную вами функцию с параметром uMsg, равным bffm_SelChanged. Третий параметр будет содержать PIDL (Platform Identifier List), представляющий текущий выбор. Вам может потребоваться вызвать функцию ShGetPathFromIDList, чтобы определить строковое имя пути. Вы можете управлять кнопкой "OK", отправляя сообщения обратно в обработчик окна диалога, указанный в параметре Wnd. Например:

SendMessage(Wnd, bffm_EnableOK, 0, 0); // отключение кнопки
SendMessage(Wnd, bffm_EnableOK, 0, 1); // включение кнопки

Не забудьте повторно включить кнопку после её временного отключения, если выбор является действительным.

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

Пример кода

uses ShlObj;

function BrowseCallbackProc(hwnd: HWND; MessageID: UINT; lParam: LPARAM; lpData: LPARAM): Integer; stdcall;
var
    DirName: array[0..MAX_PATH] of Char;
    pIDL: PItemIDList;
begin
    case MessageID of
        BFFM_INITIALIZED: SendMessage(hwnd, BFFM_SETSELECTION, 1, lpData);
        BFFM_SELCHANGED: begin
                            pIDL := Pointer(lParam);
                            if Assigned(pIDL) then
                            begin
                                SHGetPathFromIDList(pIDL, DirName);
                                if DirectoryExists(DirName) then
                                begin
                                    if (ExtractFileName(DirName) = 'config') then // проверка на имя директории
                                        SendMessage(hwnd, BFFM_ENABLEOK, 0, 1) // включение кнопки "OK"
                                    else
                                        SendMessage(hwnd, BFFM_ENABLEOK, 0, 0); // отключение кнопки "OK"
                                    // добавьте дополнительные проверки здесь
                                    if TFileExists(DirName + '\.project') and TDirectoryExists(DirName + '\.settings') then
                                        SendMessage(hwnd, BFFM_ENABLEOK, 0, 1)
                                    else
                                        SendMessage(hwnd, BFFM_ENABLEOK, 0, 0);
                                end
                                else
                                    SendMessage(hwnd, BFFM_ENABLEOK, 0, 0);
                            end
                            else
                                SendMessage(hwnd, BFFM_ENABLEOK, 0, 0);
                        end;
    end;
    Result := 0;
end;

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

Заключение

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

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

В статье рассматривается вопрос динамического управления состоянием кнопки 'OK' в диалоге выбора директорий в среде разработки Delphi, используя функцию обратного вызова для изменения доступности кнопки в зависимости от выбранной дире

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

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

:: Главная :: Директории ::