![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нужно что бы OpenDialog выделял папки а не файлы
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]Удалено модератором