Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

Как 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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.014 c