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

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 вся ветка

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



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