Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


Страницы:   1 2

webSQLNeederr ©   (2008-03-15 00:03:00) 

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


Германн   (2008-03-16 02:03:00) [1]


> 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. Не нравится этот вариант, пиши свой. Кто против?


MsGuns   (2008-03-16 01:38:00) [2]

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

1-й вариант

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

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

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


Германн   (2008-03-15 21:16:00) [3]


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

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


MsGuns   (2008-03-15 20:26:00) [4]

>Германн ©   (15.03.08 00:20) [2]
>В n-ный раз. SelectDirectory.

В стиле Win3.1 и без сети


webSQLNeederr   (2008-03-15 01:58:00) [5]

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


webSQLNeederr   (2008-03-15 01:56:00) [6]

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


Германн   (2008-03-15 01:53:00) [7]


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

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

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


webSQLNeederr   (2008-03-15 01:50:00) [8]

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


Johnmen   (2008-03-15 01:49:00) [9]

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


webSQLNeederr   (2008-03-15 01:47:00) [10]

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


Anatoly Podgoretsky   (2008-03-15 01:46:00) [11]


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

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


No_Dead   (2008-03-15 01:45:00) [12]

> [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;


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


webSQLNeederr   (2008-03-15 01:45:00) [13]

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


Johnmen   (2008-03-15 01:45:00) [14]


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

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


webSQLNeederr   (2008-03-15 01:42:00) [15]


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

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


Johnmen   (2008-03-15 01:33:00) [16]


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

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


webSQLNeederr   (2008-03-15 01:30:00) [17]

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


Германн   (2008-03-15 00:39:00) [18]


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

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


webSQLNeederr   (2008-03-15 00:38:00) [19]

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

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


Kolan   (2008-03-15 00:36:00) [20]

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


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо