Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];

Вниз

Как OpenDialog настроить на выбор не файла, а папки?   Найти похожие ветки 

 
Chainik   (2003-12-08 17:47) [0]

Извиняйте за ламерский вопрос - давно не программил


 
Daemys   (2003-12-08 17:49) [1]

никак


 
Chainik   (2003-12-08 17:52) [2]

Неужели писать свой диалог? :(
Может где есть уже готовый?


 
Daemys   (2003-12-08 18:15) [3]

есть готовый SHBrowseForFolder


 
WithOut Any ...   (2003-12-08 18:32) [4]

Загляни на сайт Подгоретского. Меня впоне устроило


 
pavel_k   (2003-12-08 19:31) [5]

function GetPath(mes: string):string;
var
Root: string; // корневой каталог
pwRoot : PWideChar;
Dir: string;
begin
Root := ""; // корневой каталог не указан => весь комп
GetMem(pwRoot, (Length(Root)+1) * 2);
pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);

if DirectoryExists(MainForm.PathEdit.Text) then
Dir:=MainForm.PathEdit.Text;

if SelectDirectory(mes, pwRoot, Dir)
then
if length(Dir) = 2
then GetPath := Dir+"\"
else GetPath := Dir
else
GetPath := "";
end;


Если Root устанавливать например в "c:", то можно выбирать папку только на диске c.
Отлично работает!


 
Александр из Минска   (2003-12-08 23:56) [6]

А в RXLib есть уже готовый TDirectoryEdit (и довольно прилично выглядит, если свойство Style поменять)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
14-62220
Переяслов Григорий
2003-11-26 13:35
2003.12.19
Создание VCD из MPEG-4


1-61996
kosha80
2003-12-08 05:39
2003.12.19
Вот рабочий стол это тот же


6-62183
BAPBAP
2003-10-24 03:15
2003.12.19
IdTCPClient свойство BoundIP - что оно определяет?


1-62114
III
2003-12-08 13:23
2003.12.19
DLL+RunTime+Visual Components


14-62281
dimod
2003-11-24 10:55
2003.12.19
Где скачать DirectX 9.1 (реальные ссылки)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский