Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Вниз
Окно выбора каталога с возможностью создания каталогов Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c