Главная страница
    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.009 c
3-61917
mOOx_
2003-11-26 13:41
2003.12.19
Что такое со вставкой во View?


1-62109
BillyJeans
2003-12-08 15:23
2003.12.19
Простой вопрос про Excel...


14-62245
Developerr
2003-11-27 16:40
2003.12.19
Заставка рабочего стола


6-62170
Avsam
2003-10-23 13:59
2003.12.19
TIdHTTP и прокси


14-62231
SkyRanger
2003-11-26 04:11
2003.12.19
Повесть о





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский