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

Как открыть дерикторию ? компонентом SaveDialog   Найти похожие ветки 

← →
Фёдор Мегатронов   (2004-08-25 20:20) [0]

И этим ли компонентом вообще это делаеться ?

просто нужна менюшка где можно выбрать директорию, нажать на кнопку и чтобы путь дериктории сохранился в Edit

---

← →
Skier ©   (2004-08-25 20:29) [1]

см. в FileCtrl функцию SelectDirectory(...)

---

← →
Yanis ©   (2004-08-25 20:33) [2]

uses ShellAPI, ShlObj;

var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
 BrowseInfo.hwndOwner := Form1.Handle;
 BrowseInfo.pszDisplayName := @DisplayName;
 TitleName := "Please specify a directory";
 BrowseInfo.lpszTitle := PChar(TitleName);
 BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then
   begin
     SHGetPathFromIDList(lpItemID, TempPath);
     ShowMessage(TempPath);
     GlobalFreePtr(lpItemID);
   end;

---

← →
Фёдор Мегатронов   (2004-08-25 20:42) [3]

Uses FileCtrl;

procedure TForm2.PathBtnClick(Sender: TObject);
var
Dir : String;
begin
Dir := "C:\";
 if SelectDirectory(Dir, sdAllowCreate, SELDIRHELP)
  then
   Edit2.Text := Dir;

Он пишет - FileCtrl specific to platform

---

← →
Skier ©   (2004-08-25 20:56) [4]

>Фёдор Мегатронов   (25.08.04 20:42) [3]

> Он пишет - FileCtrl specific to platform

Это не ошибка,а предупреждение и его можно отключить
(если ты не собираешься писать под Kyrix, то отключай смело...)

---

← →
Фёдор Мегатронов   (2004-08-25 23:15) [5]

хм.. всё вродебы работает, за исключением того, что в этом окте (где выбирать деректорию) отсутствует половина папок 8) т.е. некоторые видны, а некоторые - нет ...
и интерфейс английский ... немного не в тему 0_о т.к. всё остальное в проге на великом и могучем

---

← →
TUser ©   (2004-08-26 06:18) [6]

> отсутствует половина папок 8) т.е. некоторые видны, а некоторые - нет ...

Может им поставлены какие-нибудь аттрибуты, типа "Скрытая"

---

← →
heady   (2004-09-03 21:33) [7]

a PathBtnClick откуда брать?
а то на SELDIRHELP ругается - undeclared identifer

---

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

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



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