Скачать: CL | DM;

Окно выбора каталога с возможностью создания каталогов   Найти похожие ветки 

← →
nejest ©   (2003-04-08 12:35) [0]

Посоветуйте комнпонент, реализующий сабж. Пробовал:
1. TDirectoryListBox + TDriveComboBox - остутствует возможность создания подкатологов.
2. TDirectoryEdit из RXLib очень отстойно это выглядит.
Мне нужен компонент для выбора каталога, с видом OpenDialog и таким же способом создания подкатологов.

---

← →
stone ©   (2003-04-08 12:45) [1]

uses FileCtrl;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

---

← →
nejest ©   (2003-04-08 13:07) [2]

если можно примерчик, а то я сделал как в хелпе и Дельфя ругается

---

← →
stone ©   (2003-04-08 13:38) [3]

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;

---

← →
nejest ©   (2003-04-08 13:52) [4]

Ага работает, но создание подкаталогов идёт по тому же принципу, что и TDirectoryEdit из RXLib, зачем мне столько писать, если можно просто его вставить?
P.S. у меня не работал пример из хелпа, потому, что я не добавил
const
SELDIRHELP = 1000;

---

← →
nejest ©   (2003-04-09 15:38) [5]

И самое главное, не один из трёх перечисленных способов не позволяет выбирать сетевые пути. Жду советов на счёт компонент...

---

← →
andrey_pst ©   (2003-04-09 15:53) [6]

>> И самое главное, не один из трёх перечисленных способов
>> не позволяет выбирать сетевые пути. Жду советов на счёт
>> компонент...

Не согласен, посмотри: SelectDirectory + F1

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c