1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

Диалог "Выбор папки"

Тема в разделе "Borland C++ Builder & Kylix", создана пользователем artsb, 26 ноя 2007.

  1. artsb

    artsb Гость

    Репутация:
    0
    Подскажите как открыть диалог выбора папки. Не TOpenDialog, а там маленькое окошко с деревом каталагов, как у винампа(рисунок). Желательно, чтобы можно было создавать новую папку с помощью него. Ну и расскажите плиз как с ним работать.
    Среди стандартных не нашёл (может плохо искал ).
    Спасибо.
    Диалог "Выбор папки"
     
  2. artsb

    artsb Гость

    Репутация:
    0
    sax_ol можешь объяснить, что это значит.
     
  3. zubr

    zubr Гость

    Репутация:
    0
    Пользуй функцию SHBrowseForFolder (см. MSDN, там и пример есть). В дополнение пример на Delphi (переведешь сам):
    Код:
    procedure TForm1.Button2Click(Sender: TObject);
    var
    TitleName : string;
    lpItemID : PItemIDList;
    BrowseInfo : TBrowseInfo;
    DisplayName : array[0..MAX_PATH] of char;
    TempPath : array[0..MAX_PATH] of char;
    begin
    FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
    BrowseInfo.hwndOwner := Form1.Handle;
    BrowseInfo.pszDisplayName := @DisplayName;
    TitleName := 'Please specify a directory';
    BrowseInfo.lpszTitle := PChar(TitleName);
    BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
    lpItemID := SHBrowseForFolder(BrowseInfo);
    if lpItemId <> nil then
    begin
    SHGetPathFromIDList(lpItemID, TempPath);
    ShowMessage(TempPath);
    GlobalFreePtr(lpItemID);
    end;
    end;
     
Загрузка...

Поделиться этой страницей