Нужно что бы OpenDialog выделял папки а не файлы

← →
webSQLNeederr (2008-03-15 00:03) [0]

Аналогично как в винампе. Как такое сделать?

← →
No_Dead © (2008-03-15 00:18) [1]

а как в винампе?%>

← →
Германн © (2008-03-15 00:20) [2]

> Нужно что бы OpenDialog выделял папки а не файлы

В n-ный раз. SelectDirectory.

← →
webSQLNeederr (2008-03-15 00:30) [3]

> В n-ный раз. SelectDirectory.

А где собственно это??

← →
Kolan © (2008-03-15 00:33) [4]

Удалено модератором

← →
webSQLNeederr (2008-03-15 00:35) [5]

Помогите пожалуйста урывком кода. Буду очень признателен.

← →
Kolan © (2008-03-15 00:36) [6]

Удалено модератором

← →
webSQLNeederr (2008-03-15 00:38) [7]

Колан не бурчи наночь глядя :)

Хоть где подскажи это искать. Я просмотрел свойства опендиалога ничего подобного нет

← →
Германн © (2008-03-15 00:39) [8]

> Я просмотрел свойства опендиалога ничего подобного нет

OpenDialog тут ни при чем. SelectDirectory - функция.

← →
webSQLNeederr (2008-03-15 01:30) [9]

В каком модуле эта функция? Так как просто я ввел в делфи и не нашло ее.

← →
Johnmen © (2008-03-15 01:33) [10]

> Буду очень признателен.

Если не умеешь пользоваться поиском на диске, то озвуч размер признательности :))

← →
webSQLNeederr (2008-03-15 01:42) [11]

> Если не умеешь пользоваться поиском на диске, то озвуч размер
> признательности :))

Признательность в виде Большого Спасибо подойдет?

← →
Johnmen © (2008-03-15 01:45) [12]

> Признательность в виде Большого Спасибо подойдет?

Не-e-e.
Проще научить тебя поиску :)

← →
No_Dead © (2008-03-15 01:45) [13]

> [9] webSQLNeederr (15.03.08 01:30)

не ну вот скажи справки нет? ну так скачай откуда-нибудь

из справки код
uses FileCtrl; const SELDIRHELP = 1000; procedure TForm1.Button1Click(Sender: TObject); var Dir: string; begin Dir := "C:\MYDIR"; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then Label1.Caption := Dir; end;

ЗЫ. хм&#133 бывают же парадоксы в жизни: у кого-то делфи есть, а справки нет, а у меня наоборот:(

← →
webSQLNeederr (2008-03-15 01:45) [14]

Я не прошу удочку !!! Мне нужна РЫБА :))))

← →
Anatoly Podgoretsky © (2008-03-15 01:46) [15]

> Признательность в виде Большого Спасибо подойдет?

Это слишком много.

← →
webSQLNeederr (2008-03-15 01:47) [16]

Удалено модератором
Примечание: Флудить завязываем

← →
Johnmen © (2008-03-15 01:49) [17]

Рыба такова: Пуск - Поиск - Файлы и папки - дальше обычно даже последние чайники соображают....:)

← →
webSQLNeederr (2008-03-15 01:50) [18]

Удалено модератором
Примечание: Флудить завязываем

> webSQLNeederr (15.03.08 01:30) [9]
>
> В каком модуле эта функция? Так как просто я ввел в делфи
> и не нашло ее.
>

А как ввел?
А куда ввёл?
А правильно ввёл? (Т.е. без ошибок).

Не, ну. Любая версия Дельфи знает эту функцию. Даже Д1.

← →
webSQLNeederr (2008-03-15 01:56) [20]

Удалено модератором
Примечание: Флудить завязываем

← →
webSQLNeederr (2008-03-15 01:58) [21]

Удалено модератором
Примечание: Флудить завязываем

> MsGuns © (15.03.08 20:26) [22]
>
> >Германн © (15.03.08 00:20) [2]
> >В n-ный раз. SelectDirectory.
>
> В стиле Win3.1 и без сети
>

В n-ный раз. Их две штуки.

>Германн © (15.03.08 21:16) [23]

1-й вариант

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;

не дает выставить начальный каталог в стиле OpenDialog как элемент полного дерева файловой системы. Т.е. либо выбирай от самого корня либо только в пределах указанного Root каталога. А это очень неудобно

Или я что-то не так делаю ?

> MsGuns © (16.03.08 01:38) [24]
>
> >Германн © (15.03.08 21:16) [23]
>
> 1-й вариант
>
> function SelectDirectory(const Caption: string; const Root:
> WideString; out Directory: string): Boolean; overload;
>
> не дает выставить начальный каталог в стиле OpenDialog как
> элемент полного дерева файловой системы. Т.е. либо выбирай
> от самого корня либо только в пределах указанного Root каталога.
> А это очень неудобно
>

Это да. Но ты ведь жаловался на другую болячку:
> В стиле Win3.1 и без сети
>

А в остальном, это просто один (но четко рабочий) вариант использования API-шной ShBrowseForFolder. Не нравится этот вариант, пиши свой. Кто против?

Нужно что бы OpenDialog выделял папки а не файлы Найти похожие ветки