Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Вниз
TOpenDialog проблеммка!!!! Найти похожие ветки
← →
Cherepovets (2003-03-31 09:43) [0]Подскажите если OpenDialog такой что бы можно было просто обозначать папку, а не выделять файл. Или подскажите как это сделать?
← →
Md (2003-03-31 09:44) [1]Может лучше использовать SHBrowseForFolder.....
← →
Cherepovets (2003-03-31 09:46) [2]Это диалог?
И как его использовать?
← →
Md (2003-03-31 09:53) [3]
Вот пример кода из рабочей программы
Uses ShlObj;
procedure TForm1.Button4Click(Sender: TObject);
Var BI:TBrowseInfo;
StartPIDL,ResPIDL:PItemIDList;
s,path:array [0..max_path-1] of WideChar;
begin
OleCheck(SHGetSpecialFolderLocation(Handle,CSIDL_DRIVES,StartPIDL));
With BI do
begin
hwndOwner:=Application.Handle;
pszDisplayName:=@s;
lpszTitle:="Выберете необходимую папку";
ulFlags:=BIF_RETURNONLYFSDIRS;
pidlRoot:=StartPIDL;
lpfn:=nil;
iImage:=1;
end;
ResPIDL:=SHBrowseForFolder(BI);
if SHGetPathFromIDList(ResPIDL,@Path[0]) then
ListBox1.Items.Add(StrPas(@Path[0])+"\");
end;
← →
alex_bredin (2003-03-31 10:10) [4]Вкладка Samples-ShellTreeView,ShellComboBox
← →
stone (2003-03-31 10:43) [5]Есть такая функция SelectDirectory
← →
Anatoly Podgoretsky (2003-03-31 10:56) [6]Если нужен выбор сетевых папок, то SelectDirectory не подходит
← →
Cherepovets (2003-03-31 11:20) [7]А есть что то похожее на OpenDialog?
← →
alex_bredin (2003-03-31 11:22) [8]а чем собственно ShellTreeView не нравится?
← →
Cherepovets (2003-03-31 11:34) [9]А собственно TreeView меня сам по себе не устраивает
← →
stone (2003-03-31 12:25) [10]
> Если нужен выбор сетевых папок, то SelectDirectory не подходит
Что вы говорите?
Попробуйте
var
Dir: string;
if SelectDirectory("Обзор папок", "", Dir) then
Edit1.Text := dir;
← →
Cherepovets (2003-03-31 12:38) [11]Не хило код уменьшить мона!!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c
